summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2022-04-13 16:24:43 -0700
committerSean Whitton <spwhitton@spwhitton.name>2022-04-13 16:34:04 -0700
commit233ad93bbc7bc7b57ae61458bddf344980af915f (patch)
tree3512c3fb88d9c58a538953bd86cfb46c83c30578
parent98022c34083cab1ecf7fbe41859f7d77b7a37a7c (diff)
downloademacs-233ad93bbc7bc7b57ae61458bddf344980af915f.tar.gz
use git-merge-base(1) to ensure we merge something tested
-rwxr-xr-xdebian/merge-snapshot14
1 files changed, 11 insertions, 3 deletions
diff --git a/debian/merge-snapshot b/debian/merge-snapshot
index 71724934ad1..18acea9115e 100755
--- a/debian/merge-snapshot
+++ b/debian/merge-snapshot
@@ -7,10 +7,13 @@ use warnings;
use Cwd;
use Git::Wrapper;
-my $to_merge = "origin/master";
-
my $git = Git::Wrapper->new(getcwd);
+($git->rev_parse({ abbrev_ref => 1 }, "HEAD"))[0] eq "athena/unstable"
+ or die "on wrong branch!";
+
+my ($to_merge) = $git->merge_base("melete", "origin/master");
+
chomp(my $prev_version = `dpkg-parsechangelog -SVersion`);
chomp(my $prev_distn = `dpkg-parsechangelog -SDistribution`);
@@ -21,7 +24,12 @@ $new_date =~ /\A([0-9]{4})-([0-9]{2})-([0-9]{2})/
$new_date = $1 . $2 . $3;
my $new_rev = $prev_date eq $new_date ? $prev_rev + 1 : 1;
-$git->merge($to_merge);
+$git->merge({
+ message =>
+ "Merge remote-tracking branch 'origin/master' into athena/unstable"
+ },
+ $to_merge
+);
system "dch", "-v29~git${new_date}.${new_rev}",
$prev_distn eq "UNRELEASED" ? "" : "Package git snapshot.";