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
2713
2713
$x =~ s / ^[\x{0301}\x{030C} ]+// ;
2714
2714
}
2715
2715
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" );
2724
+ }
2725
+
2716
2726
2717
2727
# !!! NOTE that tests that aren't at all likely to crash perl should go
2718
2728
# 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: {
169
169
170
170
}
171
171
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
-
180
172
done_testing();
You can’t perform that action at this time.
0 commit comments