From: Tye McQueen <tye@metronet.com>
Date: Wed, 15 Jul 1998 13:46:44 +0000 (-0500)
Subject: Minor debugger fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6921e3ed0b3684dd54de352bf282b5808bd3dcd2;p=p5sagit%2Fp5-mst-13.2.git

Minor debugger fix

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

p4raw-id: //depot/perl@1552
---

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 {