blob: b688d8a8df4e1247443913178870f22816cc7b2c (
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
package inc::GitUpToDate;
use Moose;
with 'Dist::Zilla::Role::BeforeBuild';
sub git {
if (wantarray) {
chomp(my @ret = qx{git $_[0]});
return @ret;
}
else {
chomp(my $ret = qx{git $_[0]});
return $ret;
}
}
sub before_build {
my $self = shift;
return unless $ENV{DZIL_RELEASING};
my $branch = git "symbolic-ref HEAD";
die "Could not get the current branch"
unless $branch;
$branch =~ s{refs/heads/}{};
$self->log("Ensuring branch $branch is up to date");
git "fetch origin";
my $origin = git "rev-parse origin/$branch";
my $head = git "rev-parse HEAD";
die "Branch $branch is not up to date (origin: $origin, HEAD: $head)"
if $origin ne $head;
# now also check that HEAD is current with the release branch
# that is, that the release branch is an ancestor commit of HEAD.
my $release_branch = ($self->zilla->plugin_named('Git::CheckFor::CorrectBranch')->release_branch)[0];
foreach my $remote ('origin/', '')
{
my $release_commit = git "rev-parse ${remote}$release_branch";
my $common_ancestor = git "merge-base $head $release_commit";
die "Branch $branch does not contain all commits from the current release branch ",
"(common ancestor for ${remote}$release_branch: $common_ancestor)"
if $common_ancestor ne $release_commit;
}
}
1;
|
