From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 13 Oct 1999 07:06:04 +0000 (+0000)
Subject: debugger tweak (from M.J.T. Guy <mjtg@cus.cam.ac.uk>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2002527a20c03cb879ee04519ae2822f7ebcb8d9;p=p5sagit%2Fp5-mst-13.2.git

debugger tweak (from M.J.T. Guy <mjtg@cus.cam.ac.uk>)

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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 7b0567c..2314bf7 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -689,7 +689,7 @@ EOP
 			
 			for ($i = 1; $i <= $max; $i++) {
 			    if (defined $dbline{$i}) {
-			        print "$file:\n" unless $was++;
+			        print $OUT "$file:\n" unless $was++;
 				print $OUT " $i:\t", $dbline[$i];
 				($stop,$action) = split(/\0/, $dbline{$i});
 				print $OUT "   break if (", $stop, ")\n"