}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
$Base += 4;
}
+
# test cond_signal()
{
my $lock : shared;
$tr->join();
$Base += 5;
-
}
lock($counter);
if ($n > 0) {
$counter++;
- $th = threads->new(\&broad, $n-1);
+ $th = threads->create(\&broad, $n-1);
cond_wait($counter);
$counter += 10;
}
$th->join if $th;
}
- threads->new(\&broad, 3)->join;
+ threads->create(\&broad, 3)->join;
ok(2, $counter == 33, "cond_broadcast: all three threads woken");
$Base += 2;
lock($r);
if ($n > 0) {
$$r++;
- $th = threads->new(\&broad2, $n-1);
+ $th = threads->create(\&broad2, $n-1);
cond_wait($r);
$$r += 10;
}
$th->join if $th;
}
- threads->new(\&broad2, 3)->join;;
+ threads->create(\&broad2, 3)->join;;
ok(2, $$r == 33, "cond_broadcast: ref: all three threads woken");
$Base += 2;
-
}
cond_broadcast($lock);
ok(4, $warncount == 2, 'get no warning on cond_broadcast');
- #$Base += 4;
+ $Base += 4;
}
+exit(0);
+
# EOF