dgit-repos-server: better handling of wrongness in maybeinstallprospective

[dgit.git] / dgit-repos-server

diff --git a/dgit-repos-server b/dgit-repos-server
index ce48eeb217f95ea7f8359db2416516af3d6cb243..8dd36aee27458ca4b97ad9ad4e0dfdb6227c1370 100755 (executable)
--- a/dgit-repos-server
+++ b/dgit-repos-server
@@ -241,9 +241,11 @@ sub maybeinstallprospective () {
            die;
        die if $got{$wh}++;
     }
+    $!=0; $?=0; close SR or $?==256 or die "$? $!";
+
     debug "installprospective ?";
-    die if grep { !$_ } values %got;
-    $!=0; $?=0; close SR or die "$? $!";
+    die Dumper(\%got)." -- missing refs in new repo"
+       if grep { !$_ } values %got;
 
     debug "install $destrepo => $realdestrepo";
     rename $destrepo, $realdestrepo or die $!;