summaryrefslogtreecommitdiffstats
path: root/bin/git/git-unmerged
diff options
context:
space:
mode:
Diffstat (limited to 'bin/git/git-unmerged')
-rwxr-xr-xbin/git/git-unmerged30
1 files changed, 0 insertions, 30 deletions
diff --git a/bin/git/git-unmerged b/bin/git/git-unmerged
deleted file mode 100755
index 4e16caf..0000000
--- a/bin/git/git-unmerged
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-
-sub git {
- if (wantarray) {
- chomp(my @ret = qx{git $_[0]});
- return @ret;
- }
- else {
- chomp(my $ret = qx{git $_[0]});
- return $ret;
- }
-}
-
-my $branch = git 'symbolic-ref HEAD';
-$branch ||= 'master';
-$branch =~ s:^refs/heads/::;
-
-my @remotes = git 'remote show';
-my %remotes = map { $_, "$_/$branch" } @remotes;
-
-for my $remote (keys %remotes) {
- my $remote_branch = $remotes{$remote};
- my $tip = git "show-ref -s --abbrev $remote_branch";
- my $merge_base = git "merge-base HEAD $remote_branch";
- $merge_base = substr $merge_base, 0, 7;
- next if $merge_base eq $tip;
- print "$remote: $merge_base..$tip\n";
-}