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; [GH 16627]" );
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 @@ -181,12 +181,4 @@ TODO: {
181
181
182
182
}
183
183
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
-
192
184
done_testing();
You can’t perform that action at this time.
0 commit comments