1 package inc::GitUpToDate;
4 with 'Dist::Zilla::Role::BeforeBuild';
8 chomp(my @ret = qx{git $_[0]});
12 chomp(my $ret = qx{git $_[0]});
20 return unless $ENV{DZIL_RELEASING};
22 my $branch = git "symbolic-ref HEAD";
23 die "Could not get the current branch"
26 $branch =~ s{refs/heads/}{};
28 $self->log("Ensuring branch $branch is up to date");
31 my $origin = git "rev-parse origin/$branch";
32 my $head = git "rev-parse HEAD";
34 die "Branch $branch is not up to date (origin: $origin, HEAD: $head)"