diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-13 07:06:04 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-13 07:06:04 +0000 |
| commit | 2002527a20c03cb879ee04519ae2822f7ebcb8d9 (patch) | |
| tree | 557ee0aa4f23ce548eaf88b6f6d79656b458c1c8 /lib | |
| parent | 45e2aec9df9174aa335c0e92620b3df6d13f23e0 (diff) | |
| download | perl-2002527a20c03cb879ee04519ae2822f7ebcb8d9.tar.gz | |
debugger tweak (from M.J.T. Guy <mjtg@cus.cam.ac.uk>)
p4raw-id: //depot/perl@4364
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 7b0567c403..2314bf7c3d 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" |