Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
# 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 {
}
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;
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 = ();