- rename genplatform to rpmgenplatform

1 files changed, 0 insertions, 27 deletions

diff --git a/genplatform.in b/genplatform.in
deleted file mode 100644
index fc6bf82..0000000
--- a/genplatform.in
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/sbin/perl
-
-# $Id$
-use strict;
-use warnings;
-
-my @ALLARCH=qw{
-    noarch
-    @RPMALLARCH@
-};
-
-my $anysuffix = '-.*-@RPMOS@-gnu';
-my $suffix = '-@RPMCANONVENDOR@-@RPMOS@-gnu';
-my $canonarch = $ARGV[0] || `uname -m`;
-chomp($canonarch);
-
-foreach my $suf ($suffix, $anysuffix) {
-    my $found = 0;
-    my %done = ();
-    foreach my $arch (reverse @ALLARCH) {
-        $arch eq $canonarch and $found = 1;
-        $found or next;
-        $done{$arch} and next;
-        $done{$arch} = 1;
-        print "$arch$suf\n";
-    }
-}