1 files changed, 0 insertions, 27 deletions
diff --git a/bin/git/git-treehash b/bin/git/git-treehash
deleted file mode 100755
index 8b2d1a4..0000000
--- a/bin/git/git-treehash
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-my %opt;
-use Getopt::Std;
-getopts("q", \%opt);
-
-@ARGV = qw(HEAD ORIG_HEAD) unless @ARGV;
-
-for my $rev (@ARGV) {
-  chomp(my $res = qx{git rev-parse $rev^{tree}});
-  if ($?) { $BAD++ }
-  else { push @{$hash{$res}}, $rev }
-}
-
-exit 2 if $BAD;
-if (keys(%hash) == 1) {
-  my ($res) = keys %hash;
-  print "$res\n" unless $opt{"q"};
-  exit 0;
-} else {
-  unless ($opt{"q"}) {
-    for my $res (keys %hash) {
-      print $res, " ", join(" ", @{$hash{$res}}), "\n";
-    }
-  }
-  exit 1;
-}