From c4ff745bf2423178860cb7ab6905f0cd6565c37b Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 8 Jan 2017 02:45:38 +0000 Subject: [PATCH 1/1] git fetching: git_lrfetch_sane: Introduce my $url Signed-off-by: Ian Jackson --- dgit | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dgit b/dgit index 845edd3a..4f6d111b 100755 --- 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. + my $url = access_giturl(); + 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 @lcmd = (@git, qw(ls-remote -q --refs), access_giturl(), @look); + my @lcmd = (@git, qw(ls-remote -q --refs), $url, @look); debugcmd "|",@lcmd; my %wantr; @@ -2590,7 +2592,7 @@ END 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 = (); -- 2.30.2