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 @@ -169,12 +169,4 @@ TODO: {
169169
170170}
171171
172- {
173- fresh_perl(' use re "eval";
174- my @r;
175- for$0(qw(0 0)){push@r,qr/@r(?{})/};' ,
176- { stderr => ' devnull' });
177- is($? , 0, " No assertion failure" );
178- }
179-
180172done_testing();
You can’t perform that action at this time.
0 commit comments