From 2002527a20c03cb879ee04519ae2822f7ebcb8d9 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 13 Oct 1999 07:06:04 +0000
Subject: [PATCH] debugger tweak (from M.J.T. Guy <mjtg@cus.cam.ac.uk>)

p4raw-id: //depot/perl@4364
---
 lib/perl5db.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"
-- 
2.7.4