diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-24 05:52:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-24 05:52:00 +0000 |
| commit | 615b993bf8c0434938e2210dee0592d689927961 (patch) | |
| tree | 6a88a647afaf9fa22d8487583b1828eb70197968 /lib/perl5db.pl | |
| parent | 52531d10235032d7a6699893866618bfd041b167 (diff) | |
| download | perl-615b993bf8c0434938e2210dee0592d689927961.tar.gz | |
debugger tweak (wasn't printing a newline after recalled commands)
p4raw-id: //depot/perl@3139
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 4d05e6d930..18196278d9 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1051,7 +1051,7 @@ EOP pop(@hist) if length($cmd) > 1; $i = $1 ? ($#hist-($2?$2:1)) : ($2?$2:$#hist); $cmd = $hist[$i]; - print $OUT $cmd; + print $OUT $cmd, "\n"; redo CMD; }; $cmd =~ /^$sh$sh\s*([\x00-\xff]*)/ && do { &system($1); @@ -1067,7 +1067,7 @@ EOP next CMD; } $cmd = $hist[$i]; - print $OUT $cmd; + print $OUT $cmd, "\n"; redo CMD; }; $cmd =~ /^$sh$/ && do { &system($ENV{SHELL}||"/bin/sh"); |