git fetching: git_lrfetch_sane: Introduce my $url

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 845edd3aa22878a3571116c59d37a743fba4ea8f..4f6d111b18c25fbe67356fad08c85d900c5bc483 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2539,6 +2539,8 @@ sub git_lrfetch_sane {
     # 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.
 

+    my $url = access_giturl();
+

     printdebug "git_lrfetch_sane specs @specs\n";
 
     my $specre = join '|', map {
     printdebug "git_lrfetch_sane specs @specs\n";
 
     my $specre = join '|', map {


@@ -2562,7 +2564,7 @@ sub git_lrfetch_sane {
        }
 
        my @look = map { "refs/$_" } @specs;
        }
 
        my @look = map { "refs/$_" } @specs;

-       my @lcmd = (@git, qw(ls-remote -q --refs), access_giturl(), @look);
+       my @lcmd = (@git, qw(ls-remote -q --refs), $url, @look);

        debugcmd "|",@lcmd;
 
        my %wantr;
        debugcmd "|",@lcmd;
 
        my %wantr;


@@ -2590,7 +2592,7 @@ END
 
        printdebug "git_lrfetch_sane fspecs @fspecs\n";
 
 
        printdebug "git_lrfetch_sane fspecs @fspecs\n";
 

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

        runcmd_ordryrun_local @fcmd if @fspecs;
 
        %lrfetchrefs_f = ();
        runcmd_ordryrun_local @fcmd if @fspecs;
 
        %lrfetchrefs_f = ();