This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f311474
)
Fix restarting a debugging session opened for a one-liner
author
Vincent Pit
<perl@profvince.com>
Mon, 25 Jun 2012 13:56:27 +0000
(15:56 +0200)
committer
Vincent Pit
<perl@profvince.com>
Mon, 25 Jun 2012 13:56:27 +0000
(15:56 +0200)
It was broken by 'use strict' as well.
lib/perl5db.pl
patch
|
blob
|
blame
|
history
diff --git
a/lib/perl5db.pl
b/lib/perl5db.pl
index
6e08d59
..
d914154
100644
(file)
--- a/
lib/perl5db.pl
+++ b/
lib/perl5db.pl
@@
-9016,8
+9016,9
@@
sub restart {
# the 'require perl5db.pl;' line), and add them back on
# to the command line to be executed.
if ( $0 eq '-e' ) {
- for ( 1 .. $#{'::_<-e'} ) { # The first line is PERL5DB
- chomp( $cl = ${'::_<-e'}[$_] );
+ my $lines = *{$main::{'_<-e'}}{ARRAY};
+ for ( 1 .. $#$lines ) { # The first line is PERL5DB
+ chomp( $cl = $lines->[$_] );
push @script, '-e', $cl;
}
} ## end if ($0 eq '-e')