From 2ff884afdc6d249a12c7a9bfc68d208cef616a75 Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Thu, 14 Jul 2011 13:51:58 +0100
Subject: [PATCH] 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).
---
 t/op/threads.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/op/threads.t b/t/op/threads.t
index 731e148..b159823 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");
 }
-- 
2.7.4