blob: fe003515ebd1496295c4dd1fa0c184ce35ed9486 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/perl
use 5.028;
use strict;
use warnings;
use Cwd;
use Git::Wrapper;
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`);
my ($prev_date, $prev_rev) = ($prev_version =~ /git([0-9]+).([0-9]+)/);
my ($new_date) = $git->show("-s", { format => "%ci" }, $to_merge);
$new_date =~ /\A([0-9]{4})-([0-9]{2})-([0-9]{2})/
or die "couldn't parse new commit committer date";
$new_date = $1 . $2 . $3;
my $new_rev = $prev_date eq $new_date ? $prev_rev + 1 : 1;
$git->merge({
message =>
"Merge remote-tracking branch 'origin/master' into athena/unstable"
},
$to_merge
);
system "dch", "-v29.1~git${new_date}.${new_rev}",
$prev_distn eq "UNRELEASED" ? "" : "Package git snapshot.";
$git->add("debian/changelog");
$git->commit({ message => "changelog" });
|
