Minor debugger fix
Tye McQueen [Wed, 15 Jul 1998 13:46:44 +0000 (08:46 -0500)]
Message-Id: <199807151846.AA12653@metronet.com>

p4raw-id: //depot/perl@1552

lib/perl5db.pl

index c87e905..67a6a6d 100644 (file)
@@ -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 {