From 1b4321cf375cab8a864370e54ed0c8585d054efc Mon Sep 17 00:00:00 2001
From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 2 Jul 2001 02:27:22 -0400
Subject: debugger goof Message-ID: <20010702062722.A1746@math.ohio-state.edu>

p4raw-id: //depot/perl@11085
---
 lib/perl5db.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/perl5db.pl')

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 2257e713fa..579bf69835 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 
-- 
cgit v1.2.1