From 89dfd17c9cd0a9c030083a5530ac816987431187 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Mon, 11 May 2015 08:58:06 +0100 Subject: dgit-repos-server: Debug when we movetogarbage --- infra/dgit-repos-server | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'infra/dgit-repos-server') diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server index ae30eef..634f91e 100755 --- a/infra/dgit-repos-server +++ b/infra/dgit-repos-server @@ -301,15 +301,21 @@ sub movetogarbage () { # purposes (and, I guess, recovery from mistakes). This is either # $garbage or $garbage-old. if (stat_exists "$garbagerepo") { + printdebug "movetogarbage: rmtree $garbagerepo-tmp\n"; rmtree "$garbagerepo-tmp"; if (rename "$garbagerepo-old", "$garbagerepo-tmp") { + printdebug "movetogarbage: $garbagerepo-old -> -tmp, rmtree\n"; rmtree "$garbagerepo-tmp"; } else { die "$garbagerepo $!" unless $!==ENOENT; + printdebug "movetogarbage: $garbagerepo-old -> -tmp\n"; } + printdebug "movetogarbage: $garbagerepo -> -old\n"; rename "$garbagerepo", "$garbagerepo-old" or die "$garbagerepo $!"; } - rename realdestrepo, $garbagerepo + my $real = realdestrepo; + printdebug "movetogarbage: $real -> $garbagerepo\n"; + rename $real, $garbagerepo or $! == ENOENT or die "$garbagerepo $!"; } -- cgit v1.2.3