This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix restarting a debugging session opened for a one-liner
authorVincent Pit <perl@profvince.com>
Mon, 25 Jun 2012 13:56:27 +0000 (15:56 +0200)
committerVincent 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

index 6e08d59..d914154 100644 (file)
@@ -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')