From f57f91f9ff9fe22a4fd1aaff74d9e03519fedb97 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 10 Mar 2011 15:06:54 +0000
Subject: [PATCH] Change `fetchInputGit' to do `git clone -b BRANCH' instead of
 `git clone'.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Suggested by Vladimír Čunát <vcunat@gmail.com>.
---
 src/lib/Hydra/Helper/AddBuilds.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/lib/Hydra/Helper/AddBuilds.pm b/src/lib/Hydra/Helper/AddBuilds.pm
index 7181841d..5bbc9a95 100644
--- a/src/lib/Hydra/Helper/AddBuilds.pm
+++ b/src/lib/Hydra/Helper/AddBuilds.pm
@@ -302,12 +302,12 @@ sub fetchInputGit {
 
     my $clonePath;
     mkpath(scmPath);
-    $clonePath = scmPath . "/" . sha256_hex($uri);    
+    $clonePath = scmPath . "/" . sha256_hex($uri . $branch);
 
     my $stdout; my $stderr;
     if (! -d $clonePath) {
         (my $res, $stdout, $stderr) = captureStdoutStderr(600,
-            ("git", "clone", $uri, $clonePath));
+            ("git", "clone", "--branch", $branch, $uri, $clonePath));
         die "Error cloning git repo at `$uri':\n$stderr" unless $res;
     }