Skip to content

Commit c36caaa

Browse files
committed
Move fixed todo from run/todo.t to re/pat_advanced
1 parent 84aa593 commit c36caaa

File tree

2 files changed

+10
-8
lines changed

2 files changed

+10
-8
lines changed

t/re/pat_advanced.t

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff 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");
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

t/run/todo.t

Lines changed: 0 additions & 8 deletions
Original file line numberDiff line numberDiff 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-
180172
done_testing();

0 commit comments

Comments
 (0)