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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 9629121..c2ebca1 100644 (file)
--- 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 {