diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-02 17:47:04 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 11:54:08 +0100 |
commit | 4628b8fd6ea2e7efe9ecb676bd061232f8eae72e (patch) | |
tree | 4a65eb49f7a076c7188caf1c0d5b205b70802f2b | |
parent | ab3be575e6a64ca698684995a02563b3cb82f68a (diff) |
Infra: add some more debugging
-rwxr-xr-x | infra/dgit-repos-server | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server index f6ac507..8e939d0 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; |