This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
debugger tweak (from M.J.T. Guy <mjtg@cus.cam.ac.uk>)
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 13 Oct 1999 07:06:04 +0000 (07:06 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 13 Oct 1999 07:06:04 +0000 (07:06 +0000)
p4raw-id: //depot/perl@4364

lib/perl5db.pl

index 7b0567c..2314bf7 100644 (file)
@@ -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"