From: Mike Guy <mjtg@cam.ac.uk>
Date: Mon, 14 Aug 2000 08:26:02 +0000 (+0100)
Subject: Re: [ID 20000807.003] [PATCH] Debugger treatment of condition "0"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3170649431eb5688b22560d1c824cf4b7252a79c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {