This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
52531d1
)
debugger tweak (wasn't printing a newline after recalled commands)
author
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 24 Mar 1999 05:52:00 +0000
(
05:52
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 24 Mar 1999 05:52:00 +0000
(
05:52
+0000)
p4raw-id: //depot/perl@3139
lib/perl5db.pl
patch
|
blob
|
blame
|
history
diff --git
a/lib/perl5db.pl
b/lib/perl5db.pl
index
4d05e6d
..
1819627
100644
(file)
--- 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");