From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 24 Mar 1999 05:52:00 +0000 (+0000)
Subject: debugger tweak (wasn't printing a newline after recalled commands)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=615b993bf8c0434938e2210dee0592d689927961;p=p5sagit%2Fp5-mst-13.2.git

debugger tweak (wasn't printing a newline after recalled commands)

p4raw-id: //depot/perl@3139
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 4d05e6d..1819627 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");