reduce size of threads.t test

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).

diff --git a/t/op/threads.t b/t/op/threads.t
index 731e148..b159823 100644 (file)
--- a/t/op/threads.t
+++ b/t/op/threads.t
@@ -367,7 +367,7 @@ EOI
        { $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");
 }