view release on metacpan or  search on metacpan

git-autofixup  view on Meta::CPAN

    open(my $fh, '>', $grafts_file) or die "Can't open $grafts_file: $!\n";
    for (@upstreams) {
        print $fh $_, "\n";
    }
    close($fh) or die "close grafts file: $!\n";
    return $grafts_file;
}

sub rev_parse {
    my $rev = shift;
    my ($out, $err, $exit_code) = capture(qw(git rev-parse --verify --end-of-options), $rev);
    if ($exit_code != 0) {
        warn "git rev-parse: $err\n";
        die "Can't resolve given revision\n";
    }
    chomp $out;
    return $out;
}

sub main {
    $VERBOSE = 0;