# This figure esentially means "how long can a single test hold a
# resource before everyone else gives up waiting and aborts" or
# in other words "how long does the longest test-group legitimally run?"
-my $lock_timeout_minutes = 15; # yes, that's long, I know
+my $lock_timeout_minutes = 30; # yes, that's long, I know
my $wait_step_seconds = 0.25;
sub await_flock ($$) {
}
}
+ print STDERR "Lock timeout of $lock_timeout_minutes minutes reached: "
+ unless $res;
+
return $res;
}
sub rm_rf ($) {
- croak "No valid argument supplied to rm_rf()" unless length "$_[0]";
+ croak "No argument supplied to rm_rf()" unless length "$_[0]";
return unless -e $_[0];