ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

make default branch default, remove quotes

Browse Source
This commit is contained in:
Rob Vermaas 2011-10-04 22:29:36 +00:00
parent eb3b5ef6a0
commit 6ca9501632
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/lib/Hydra/Helper/AddBuilds.pm
View File

@ -469,6 +469,7 @@ sub fetchInputHg {
my ($db, $project, $jobset, $name, $type, $value) = @_; my ($db, $project, $jobset, $name, $type, $value) = @_;
(my $uri, my $id) = split ' ', $value; (my $uri, my $id) = split ' ', $value;
$id = defined $id ? $id : "default";
# init local hg clone # init local hg clone
@ -489,7 +490,7 @@ sub fetchInputHg {
("hg", "pull")); ("hg", "pull"));
die "Error pulling latest change mercurial repo at `$uri':\n$stderr" unless $res; die "Error pulling latest change mercurial repo at `$uri':\n$stderr" unless $res;
(my $res1, $stdout, $stderr) = captureStdoutStderr(600,("hg", "log", "-r", $id, "--template", "'{node|short} {branch}'")); (my $res1, $stdout, $stderr) = captureStdoutStderr(600,("hg", "log", "-r", $id, "--template", "{node|short} {branch}"));
die "Error getting branch and revision of $id from `$uri':\n$stderr" unless $res1; die "Error getting branch and revision of $id from `$uri':\n$stderr" unless $res1;
my ($revision, $branch) = split ' ', $stdout; my ($revision, $branch) = split ' ', $stdout;