Commit
3c78429c102e0fe2ad30c60dfe52636b6071ef19 introduced a new test
that constructed and then evaled a very long string. Make that string less
long, as evaling it was consuming 100Mb on my debugging build, and a
smaller string still exercises the behaviour (i.e. fails on older perls).
{ $x = 0 };
$x =~ s/a/$x + 1/e;
EOF
- $code = 'my ($r, $x,$y,$z,@a); return 5; ' . ($code x 5000);
+ $code = 'my ($r, $x,$y,$z,@a); return 5; ' . ($code x 1000);
my $res = threads->create(sub { eval $code})->join;
is($res, 5, "avoid peephole recursion");
}