the-distro/hydra
1
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

Allow use of a single Git clone for several branches.

Browse source 
This reinstates commit 53329ecc61, but
uses "git pull --all", instead of "git fetch --all", so that local
tracking branches get updated too.
This commit is contained in:
Ludovic Courtès 2012-04-12 16:55:33 +02:00
parent ed23a6e6d3
commit 6e62d9b7b5
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/lib/Hydra/Helper/AddBuilds.pm
View file

@ -323,7 +323,7 @@ sub fetchInputGit {
my $storePath;
mkpath(scmPath);
my $clonePath = scmPath . "/" . sha256_hex($uri.$branch);
my $clonePath = scmPath . "/" . sha256_hex($uri);
my $stdout; my $stderr;
if (! -d $clonePath) {
@ -335,7 +335,7 @@ sub fetchInputGit {
# git pull + check rev
chdir $clonePath or die $!; # !!! urgh, shouldn't do a chdir
(my $res, $stdout, $stderr) = captureStdoutStderr(600,
("git", "pull"));
("git", "pull", "--all"));
die "Error pulling latest change git repo at `$uri':\n$stderr" unless $res;
(my $res1, $stdout, $stderr) = captureStdoutStderr(600,
@ -343,6 +343,10 @@ sub fetchInputGit {
die "Cannot get head revision of Git branch '$branch' at `$uri':\n$stderr" unless $res1 ;
# Take the first commit ID returned by `ls-remote'. The
# assumption is that `ls-remote' returned both `refs/heads/BRANCH'
# and `refs/remotes/origin/BRANCH', and that both point at the
# same commit.
my ($first) = split /\n/, $stdout;
(my $revision, my $ref) = split ' ', $first;
die unless $revision =~ /^[0-9a-fA-F]+$/;