sub update_gcstamp ($) {
my ($gitdir) = (@_);
my $gcdone = "$gitdir/cache-proxy-gc.stamp";
- open GCSTAMP, '>', $gcdone or fail "create $gcdone: $!";
- close GCSTAMP;
+ if (open GCSTAMP, '>', $gcdone) {
+ close GCSTAMP;
+ } else {
+ $!==ENOENT or fail "create $gcdone: $!";
+ }
}
sub clonefetch () {