summaryrefslogtreecommitdiff
path: root/infra/dgit-repos-server
diff options
context:
space:
mode:
Diffstat (limited to 'infra/dgit-repos-server')
-rwxr-xr-xinfra/dgit-repos-server11
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;