diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-08 22:54:29 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-11 01:06:40 +0000 |
| commit | bbdae7b29367ab5f4679c8f66f10c445d0daa657 (patch) | |
| tree | 6d98c86d2d914600aa4b5272073b96b5e2d26b05 /lib/perl5db.pl | |
| parent | dbb6c582b4485bcc59474c5964551da04d36fa6b (diff) | |
| download | perl-bbdae7b29367ab5f4679c8f66f10c445d0daa657.tar.gz | |
debugger "d" command doesnt check line number
Message-Id: <E13MGOL-000053-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6588
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index e68c13e79c..b8ac49018c 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -941,8 +941,12 @@ EOP next CMD; }; $cmd =~ /^d\b\s*(\d*)/ && do { $i = $1 || $line; - $dbline{$i} =~ s/^[^\0]*//; - delete $dbline{$i} if $dbline{$i} eq ''; + if ($dbline[$i] == 0) { + print $OUT "Line $i not breakable.\n"; + } else { + $dbline{$i} =~ s/^[^\0]*//; + delete $dbline{$i} if $dbline{$i} eq ''; + } next CMD; }; $cmd =~ /^A$/ && do { print $OUT "Deleting all actions...\n"; |