diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-14 09:26:02 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-14 14:00:11 +0000 |
| commit | 3170649431eb5688b22560d1c824cf4b7252a79c (patch) | |
| tree | dd32b752d8adef9a82599d8f3d8d56630b79f8e4 /lib/perl5db.pl | |
| parent | 03a27ae7a2d77f4526cc8f95901f616c50fdc14b (diff) | |
| download | perl-3170649431eb5688b22560d1c824cf4b7252a79c.tar.gz | |
Re: [ID 20000807.003] [PATCH] Debugger treatment of condition "0"
Message-Id: <E13OEdG-0007LT-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6616
Diffstat (limited to 'lib/perl5db.pl')
| -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 9629121fa2..c2ebca1192 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -931,7 +931,7 @@ EOP next CMD; }; $cmd =~ /^b\b\s*(\d*)\s*(.*)/ && do { $i = $1 || $line; - $cond = defined $2 ? $2 : '1'; + $cond = length $2 ? $2 : '1'; if ($dbline[$i] == 0) { print $OUT "Line $i not breakable.\n"; } else { |