1 files changed, 0 insertions, 20 deletions
diff --git a/report/prune_results/merge-columns.pl b/report/prune_results/merge-columns.pl
deleted file mode 100755
index 07b02a92..00000000
--- a/report/prune_results/merge-columns.pl
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-my $T="\t";
-my %d;
-sub info {
-    local $,=' ';
-    print STDERR @_,"\n";
-}
-for my $n (0..$#ARGV) {
-    open F,'<',$ARGV[$n];
-    info($n,$ARGV[$n]);
-    while(<F>) {
-        my ($x,$f,$r)=split ' ',$_,3;
-        $d{$x}->[$n]=$f
-    }
-}
-for (sort keys %d) {
-    my @f=map { $T.(defined($_)?$_:'x') } @{$d{$_}};
-    print $_,@f,"\n";
-}