Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 43 lines (34 sloc) 1.29 KB
#!/usr/bin/env perl
use strict;
use warnings;
use Cwd qw(realpath);
use File::Basename;
my $BASE_DIR = dirname realpath __FILE__;
chomp (my $GIT_DIR = `git rev-parse --git-dir`);
my $simplified_merges = {};
open my $fh, '>>', "$GIT_DIR/info/grafts";
print { $fh } "# Simplified merges - Manually tracked\n";
{
chomp (my $commit = `git log --all --format='%H' --grep='trunk/DBIx-Class\@2592'`);
chomp (my $p1 = `git log --all --format='%H' --grep='trunk/DBIx-Class\@2117'`);
chomp (my $p2 = `git log --all --format='%P' --grep='trunk/DBIx-Class\@2591' | cut -d' ' -f2`);
print { $fh } join(q{ }, $commit, $p1, $p2) . "\n";
$simplified_merges->{$commit}++;
}
{
chomp (my $commit = `git log --all --format='%H' --grep='DBIx-Class/0.08/trunk\@6336'`);
chomp (my $p1 = `git log --all --format='%H' --grep='DBIx-Class/0.08/trunk\@6321'`);
chomp (my $p2 = `git log --all --format='%H' --grep='DBIx-Class/0.08/branches/joined_count\@6323'`);
print { $fh } join(q{ }, $commit, $p1, $p2) . "\n";
$simplified_merges->{$commit}++;
}
close $fh;
{
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
$Data::Dumper::Sortkeys = 1;
open my $fh, '>', "$BASE_DIR/cache/simplified-merges.pl";
print { $fh } Dumper($simplified_merges);
close $fh;
}