diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-07 22:49:58 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 17:40:04 +0000 |
| commit | 31fc166bd7f2ed3ea063fda6c7a5bbf5dd4fb403 (patch) | |
| tree | 56d630aac698514d6bedd52f70071a1f3134a069 /lib | |
| parent | 8bd33e3ebedead5d895aa1c866818d49eb50a164 (diff) | |
| download | perl-31fc166bd7f2ed3ea063fda6c7a5bbf5dd4fb403.tar.gz | |
[ID 20000807.003] [PATCH] Debugger treatment of condition "0"
Message-Id: <E13LtqQ-0006Jc-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6549
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index cc6a405823..7257aa90d4 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -899,9 +899,9 @@ EOP print $OUT "Will stop on load of `@{[join '\', `', sort keys %break_on_load]}'.\n"; next CMD; }; $cmd =~ /^b\b\s*(postpone|compile)\b\s*([':A-Za-z_][':\w]*)\s*(.*)/ && do { - my $cond = $3 || '1'; + my $cond = length $3 ? $3 : '1'; my ($subname, $break) = ($2, $1 eq 'postpone'); - $subname =~ s/\'/::/; + $subname =~ s/\'/::/g; $subname = "${'package'}::" . $subname unless $subname =~ /::/; $subname = "main".$subname if substr($subname,0,2) eq "::"; @@ -910,8 +910,8 @@ EOP next CMD; }; $cmd =~ /^b\b\s*([':A-Za-z_][':\w]*(?:\[.*\])?)\s*(.*)/ && do { $subname = $1; - $cond = $2 || '1'; - $subname =~ s/\'/::/; + $cond = length $2 ? $2 : '1'; + $subname =~ s/\'/::/g; $subname = "${'package'}::" . $subname unless $subname =~ /::/; $subname = "main".$subname if substr($subname,0,2) eq "::"; @@ -931,7 +931,7 @@ EOP next CMD; }; $cmd =~ /^b\b\s*(\d*)\s*(.*)/ && do { $i = $1 || $line; - $cond = $2 || '1'; + $cond = defined $2 ? $2 : '1'; if ($dbline[$i] == 0) { print $OUT "Line $i not breakable.\n"; } else { |