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 (file)
--- 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"