This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
debugger tweak (wasn't printing a newline after recalled commands)
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Mar 1999 05:52:00 +0000 (05:52 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Mar 1999 05:52:00 +0000 (05:52 +0000)
p4raw-id: //depot/perl@3139

lib/perl5db.pl

index 4d05e6d..1819627 100644 (file)
@@ -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");