diff options
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 4b4ab36bbd..f07467fc9d 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -523,7 +523,7 @@ BEGIN { # Debugger for Perl 5.00x; perl5db.pl patch level: use vars qw($VERSION $header); -$VERSION = '1.39_01'; +$VERSION = '1.39_02'; $header = "perl5db.pl version $VERSION"; @@ -1801,7 +1801,7 @@ sub DB { local (*dbline) = $main::{ '_<' . $filename }; # Last line in the program. - my $max = $#dbline; + $max = $#dbline; # if we have something here, see if we should break. if ( $dbline{$line} @@ -4057,7 +4057,7 @@ sub delete_action { print $OUT "Deleting all actions...\n"; for my $file ( keys %had_breakpoints ) { local *dbline = $main::{ '_<' . $file }; - my $max = $#dbline; + $max = $#dbline; my $was; for ( $i = 1 ; $i <= $max ; $i++ ) { if ( defined $dbline{$i} ) { @@ -4688,7 +4688,7 @@ sub delete_breakpoint { # Switch to the desired file temporarily. local *dbline = $main::{ '_<' . $file }; - my $max = $#dbline; + $max = $#dbline; my $was; # For all lines in this file ... @@ -5127,7 +5127,7 @@ sub cmd_L { local *dbline = $main::{ '_<' . $file }; # Set up to look through the whole file. - my $max = $#dbline; + $max = $#dbline; my $was; # Flag: did we print something # in this file? @@ -5500,7 +5500,7 @@ sub postponed_sub { $had_breakpoints{$file} |= 1; # Last line in file. - my $max = $#dbline; + $max = $#dbline; # Search forward until we hit a breakable line or get to # the end of the file. @@ -9373,7 +9373,7 @@ sub cmd_pre580_D { # Switch to the desired file temporarily. local *dbline = $main::{ '_<' . $file }; - my $max = $#dbline; + $max = $#dbline; my $was; # For all lines in this file ... |