flock LOCK, LOCK_EX or fail "lock exclusive $lock: $!";
my $exists = lstat $gitd;
- $exists or $!==ENOENT or fail "stat $gitd: $!";
+ $exists or $!==ENOENT or fail "lstat $gitd: $!";
our $fetchfail = '';
sub housekeeping () {
foreach $lock (<[a-z]*\\.lock>) {
if (!lstat $lock) {
- $! == ENOENT or fail "housekeeping: $lock: stat: $!";
+ $! == ENOENT or fail "housekeeping: $lock: lstat: $!";
next;
}
if (-M _ <= $treeexpiredays) {
if ($force) {
logm 'info', "housekeeping forced";
} elsif (!lstat "Housekeeping.stamp") {
- $! == ENOENT or fail "stat housekeeping.stamp: $!";
+ $! == ENOENT or fail "lstat Housekeeping.stamp: $!";
logm 'info', "housekeeping stamp missing, will run";
} elsif (-M _ <= $housekeepingthreshdays) {
logm 'debug', "housekeeping done recently";