add test for /(??{exit})/

1 files changed, 7 insertions, 1 deletions

diff --git a/t/re/reg_eval_scope.t b/t/re/reg_eval_scope.t
index e1b2a80824..04411fe6b5 100644
--- a/t/re/reg_eval_scope.t
+++ b/t/re/reg_eval_scope.t
@@ -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 *_ })/ }