From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 2 Jul 2001 06:27:22 +0000 (-0400)
Subject: debugger goof
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b4321cf375cab8a864370e54ed0c8585d054efc;p=p5sagit%2Fp5-mst-13.2.git

debugger goof
Message-ID: <20010702062722.A1746@math.ohio-state.edu>

p4raw-id: //depot/perl@11085
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 2257e71..579bf69 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -889,6 +889,7 @@ EOP
 			    $i = $end;
 			} else {
 			    for (; $i <= $end; $i++) {
+				my ($stop,$action);
 				($stop,$action) = split(/\0/, $dbline{$i}) if
 				    $dbline{$i};
 			        $arrow = ($i==$line