From 6921e3ed0b3684dd54de352bf282b5808bd3dcd2 Mon Sep 17 00:00:00 2001
From: Tye McQueen <tye@metronet.com>
Date: Wed, 15 Jul 1998 08:46:44 -0500
Subject: [PATCH] Minor debugger fix

	Message-Id: <199807151846.AA12653@metronet.com>

p4raw-id: //depot/perl@1552
---
 lib/perl5db.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index c87e905..67a6a6d 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1043,7 +1043,7 @@ EOP
 		    $cmd =~ /^$rc+\s*(-)?(\d+)?$/ && do {
 			pop(@hist) if length($cmd) > 1;
 			$i = $1 ? ($#hist-($2?$2:1)) : ($2?$2:$#hist);
-			$cmd = $hist[$i] . "\n";
+			$cmd = $hist[$i];
 			print $OUT $cmd;
 			redo CMD; };
 		    $cmd =~ /^$sh$sh\s*([\x00-\xff]*)/ && do {
@@ -1059,7 +1059,7 @@ EOP
 			    print $OUT "No such command!\n\n";
 			    next CMD;
 			}
-			$cmd = $hist[$i] . "\n";
+			$cmd = $hist[$i];
 			print $OUT $cmd;
 			redo CMD; };
 		    $cmd =~ /^$sh$/ && do {
-- 
2.7.4