}
if (!flock ($lock_handles->{$$}->{$filename}, $mode|LOCK_NB)) {
- print STDERR "trying to aquire lock...";
+ print STDERR "trying to acquire lock...";
my $success;
while(1) {
$success = flock($lock_handles->{$$}->{$filename}, $mode);
}
if (!$success) {
print STDERR " failed\n";
- die "can't aquire lock - $!\n";
+ die "can't acquire lock '$filename' - $!\n";
}
print STDERR " OK\n";
}