File tree Expand file tree Collapse file tree 2 files changed +10
-8
lines changed Expand file tree Collapse file tree 2 files changed +10
-8
lines changed Original file line number Diff line number Diff line change @@ -2713,6 +2713,16 @@ EOF_DEBUG_OUT
27132713 $x =~ s / ^[\x{0301}\x{030C} ]+// ;
27142714 }
27152715
2716+ { # GH 16627
2717+ fresh_perl(' use re "eval";
2718+ my @r;
2719+ for $0 (qw(0 0)) {
2720+ push @r, qr/@r(?{})/;
2721+ }' ,
2722+ { stderr => ' devnull' });
2723+ is($? , 0, " No segfault; [GH 16627]" );
2724+ }
2725+
27162726
27172727 # !!! NOTE that tests that aren't at all likely to crash perl should go
27182728 # a ways above, above these last ones. There's a comment there that, like
Original file line number Diff line number Diff line change @@ -181,12 +181,4 @@ TODO: {
181181
182182}
183183
184- {
185- fresh_perl(' use re "eval";
186- my @r;
187- for$0(qw(0 0)){push@r,qr/@r(?{})/};' ,
188- { stderr => ' devnull' });
189- is($? , 0, " No assertion failure" );
190- }
191-
192184done_testing();
You can’t perform that action at this time.
0 commit comments