BEGIN {
chdir 't' if -d 't';
- @INC = '../lib';
+ push @INC, '../lib';
require Config; import Config;
unless ($Config{'useithreads'}) {
print "1..0 # Skip: no useithreads\n";
sub test9 {
my $i = shift;
- for(1..20000) { $i++};
+ for(1..500000) { $i++};
}
my @threads;
for(3..33) {
ok($_,1,"Multiple thread test");
push @threads ,threads->create('test9',$_);
}
-sleep 1;
+
my $i = 34;
for(@threads) {
$_->join;