diff options
| author | Tye McQueen <tye@metronet.com> | 1998-07-15 08:46:44 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-19 06:26:24 +0000 |
| commit | 6921e3ed0b3684dd54de352bf282b5808bd3dcd2 (patch) | |
| tree | 927721d2a979e4db4a71b3faad8a262db7881215 /lib/perl5db.pl | |
| parent | 56cb0a1cdc8ec02cd8a47636454b897d7f8bb403 (diff) | |
| download | perl-6921e3ed0b3684dd54de352bf282b5808bd3dcd2.tar.gz | |
Minor debugger fix
Message-Id: <199807151846.AA12653@metronet.com>
p4raw-id: //depot/perl@1552
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index c87e905399..67a6a6d839 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 { |