diff options
| author | David Mitchell <davem@iabyn.com> | 2011-07-14 13:51:58 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-07-14 13:55:16 +0100 |
| commit | 2ff884afdc6d249a12c7a9bfc68d208cef616a75 (patch) | |
| tree | 3e3c9cc48321057ef2482796b4ecb4c8d2aaac59 /t | |
| parent | dd413713151de77cdfaff8f2bc6cf65d2a2d39af (diff) | |
| download | perl-2ff884afdc6d249a12c7a9bfc68d208cef616a75.tar.gz | |
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).
Diffstat (limited to 't')
| -rw-r--r-- | t/op/threads.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/threads.t b/t/op/threads.t index 731e148ee4..b159823c15 100644 --- 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"); } |