# 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
servinfo "fetch/clone failed: $fetchfail";
}
}
+ alarm 0;
if (!$exists) {
rename $tmpd, $gitd or fail "rename fresh $tmpd to $gitd: $!";
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";
}