git_fetch_us: More debugging (nfc)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/dgit b/dgit
index 2a2eeddb2705cfcc2593cd68c7dc6c5942ba9c64..b17ed210119318196bfaa6ae26dc5ea94a341531 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2292,6 +2292,8 @@ sub git_fetch_us () {
     # git fetch to try to generate it.  If we don't manage to generate
     # the target state, we try again.
 
     # git fetch to try to generate it.  If we don't manage to generate
     # the target state, we try again.
 

+    printdebug "git_fetch_us specs @specs\n";
+

     my $specre = join '|', map {
        my $x = $_;
        $x =~ s/\W/\\$&/g;
     my $specre = join '|', map {
        my $x = $_;
        $x =~ s/\W/\\$&/g;


@@ -2307,6 +2309,7 @@ sub git_fetch_us () {
     my $fetch_iteration = 0;
     FETCH_ITERATION:
     for (;;) {
     my $fetch_iteration = 0;
     FETCH_ITERATION:
     for (;;) {

+       printdebug "git_fetch_us iteration $fetch_iteration\n";

         if (++$fetch_iteration > 10) {
            fail "too many iterations trying to get sane fetch!";
        }
         if (++$fetch_iteration > 10) {
            fail "too many iterations trying to get sane fetch!";
        }


@@ -2338,6 +2341,8 @@ END
            "+refs/$_:".lrfetchrefs."/$_";
        } @specs;
 
            "+refs/$_:".lrfetchrefs."/$_";
        } @specs;
 

+       printdebug "git_fetch_us fspecs @fspecs\n";
+

        my @fcmd = (@git, qw(fetch -p -n -q), access_giturl(), @fspecs);
        runcmd_ordryrun_local @git, qw(fetch -p -n -q), access_giturl(),
            @fspecs;
        my @fcmd = (@git, qw(fetch -p -n -q), access_giturl(), @fspecs);
        runcmd_ordryrun_local @git, qw(fetch -p -n -q), access_giturl(),
            @fspecs;