X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=infra%2Fdgit-repos-server;h=8e939d025f904e2e7900cb761b40857fab005f26;hp=f6ac5072d8849a1e3de83b60bffa67088b610ae6;hb=4628b8fd6ea2e7efe9ecb676bd061232f8eae72e;hpb=ab3be575e6a64ca698684995a02563b3cb82f68a

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index f6ac5072..8e939d02 100755
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -778,7 +778,7 @@ sub onwardpush () {
 }
 
 sub stunthook () {
-    debug "stunthook";
+    debug "stunthook in $workrepo";
     chdir $workrepo or die "chdir $workrepo: $!";
     mkdir "dgit-tmp" or $!==EEXIST or die $!;
     readupdates();
@@ -804,6 +804,7 @@ sub fixmissing__git_upload_pack () {
 
 sub main__git_upload_pack () {
     my $lfh = locksometree($destrepo);
+    debug "git-upload-pack in $destrepo";
     chdir $destrepo or die "$destrepo: $!";
     close $lfh;
     runcmd qw(git upload-pack), ".";
@@ -900,7 +901,13 @@ sub parseargsdispatch () {
     }
 
     if ($ARGV[0] eq '--pre-receive-hook') {
-	if ($debug) { $debug.="="; }
+	if ($debug) {
+	    $debug.="=";
+	    debug "in stunthook @ARGV";
+	    foreach my $k (sort keys %ENV) {
+		debug "$k=$ENV{$k}" if $k =~  m/^DGIT/;
+	    }
+	}
 	shift @ARGV;
 	@ARGV == 1 or die;
 	$package = shift @ARGV;