support building other branches

1 files changed, 7 insertions, 0 deletions

diff --git a/bin/buildssrht-preupload b/bin/buildssrht-preupload
index 8ae823e0..47fb34bb 100755
--- a/bin/buildssrht-preupload
+++ b/bin/buildssrht-preupload
@@ -44,6 +44,12 @@ chomp(my $source  = `dpkg-parsechangelog -SSource`);
 chomp(my $version = `dpkg-parsechangelog -SVersion`);
 my $note = "Pre-upload checks for $source $version";
 
+$git->fetch($remote);
+my ($branch) = $git->symbolic_ref("HEAD");
+my ($commit) = $git->rev_parse({ verify => 1 }, "HEAD");
+$git->for_each_ref({ contains => $branch }, "refs/remotes/$remote")
+  or die "remote $remote doesn't appear to have a copy of your HEAD";
+
 my $schroot = "$dist-amd64-sbuild";
 my $changes = "${source}_${version}_multi.changes";
 
@@ -57,6 +63,7 @@ $manifest->{tasks} = [
     [
         setup => [
             "cd $source",
+            "git checkout $commit",
             "git deborig || origtargz",
             join(
                 " ",