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 (file)
--- 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