# git-cache-proxy
# Copyright 2010 Tony Finch
-# Copyright 2013 Ian Jackson
+# Copyright 2013,2014 Ian Jackson
#
# git-cache-proxy is free software; you can redistribute it and/or
# modify them under the terms of the GNU General Public License as
die "$dir: cannot rename to $tdir: $!\n";
}
}
- my $errs;
- remove_tree($tdir, { safe=>1, error=>\$errs });
- if (!stat $tdir) {
- foreach my $err (@$errs) {
- my ($file, $message) = %$err;
- logm 'info', "problem deleting: $file: $message";
- }
- die "$dir: problem deleting file(s)\n";
+ system qw(rm -rf --), $tdir;
+ if (stat $tdir) {
+ die "$dir: problem deleting file(s), rm exited $?\n";
+ } elsif ($! != ENOENT) {
+ die "$tdir: cannot stat after deletion: $!\n";
}
}
};
}
if ($dofork) {
my $child = fork;
- defined $child or hkfail "fork: $!";
+ defined $child or fail "fork: $!";
if (!$child) {
+ open STDERR, "|logger -p daemon.warning -t '$us(housekeeping)'"
+ or die "fork: logger $!";
housekeeping();
exit 0;
}