Shouldn't we be using mtime for this?
# check age of lockfile ctime
my $now = ($#stat < 11 ? undef : $stat[10]);
@stat = stat($lock_file);
my $lock_age = ($#stat < 11 ? undef : $stat[10]);
if (!defined($lock_age) || ($now - $lock_age) > LOCK_MAX_AGE) {
# we got a stale lock, break it
dbg("lock: $$ breaking stale $lock_file: age=" .
(defined $lock_age ? $lock_age : "undef") . " now=$now");
unlink ($lock_file) || warn "lock: $$ unlink of lock file $lock_file
failed: $!\n";
}
Also, we might want to add a trap such that if a process is killed while
waiting for a stale lock, it will delete it on its way out.
Daniel
--
Daniel Quinlan anti-spam (SpamAssassin), Linux,
http://www.pathname.com/~quinlan/ and open source consulting
