LOCK: {
lock $locks_up[$id];
- for (1 .. 100) {
- my $timeout = time() + 2;
- until ($locks_up[$id] == $peers) {
- if (cond_timedwait $locks_up[$id], $timeout) {
- last LOCK;
- } else {
- return 0;
- }
+ my $timeout = time() + 10;
+ until ($locks_up[$id] == $peers) {
+ if (cond_timedwait $locks_up[$id], $timeout) {
+ last LOCK;
+ } else {
+ return 0;
}
}
}
do_load;
is_loaded 1, 'main body, loaded at end';
-# perl 5.13.4 comes a Test::More more recent than 0.88, so it must have
-# done_testing() and Test::Leaner will not replace it by a croaking stub.
done_testing();