This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add test for /(??{exit})/
authorDavid Mitchell <davem@iabyn.com>
Mon, 4 Jun 2012 20:11:34 +0000 (21:11 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:56 +0000 (13:32 +0100)
t/re/reg_eval_scope.t

index e1b2a80..04411fe 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
     skip_all_if_miniperl("no dynamic loading on miniperl, no re");
 }
 
-plan 29;
+plan 30;
 
 fresh_perl_is <<'CODE', '781745', {}, '(?{}) has its own lexical scope';
  my $x = 7; my $a = 4; my $b = 5;
@@ -232,6 +232,12 @@ CODE
     { stderr => 1 }, '{(?{goto FOO; FOO:})}';
 }
 
+# [perl #3590]
+fresh_perl_is <<'CODE', '', { stderr => 1 }, '(?{eval{die}})';
+"$_$_$_"; my $foo; # these consume pad entries and ensure a SEGV on opd perls
+"" =~ m{(?{exit(0)})};
+CODE
+
 
 # [perl #92256]
 { my $y = "a"; $y =~ /a(?{ undef *_ })/ }