From 9ec835f8eb87aa3f9c18870e8c283cc959f812a2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Jul 2002 10:54:55 +0000
Subject: simplified using MDK::Common

---
 tools/specific_arch | 27 ++++-----------------------
 1 file changed, 4 insertions(+), 23 deletions(-)

(limited to 'tools')

diff --git a/tools/specific_arch b/tools/specific_arch
index 57da2d259..006b17446 100755
--- a/tools/specific_arch
+++ b/tools/specific_arch
@@ -1,28 +1,9 @@
 #!/usr/bin/perl
 
-%compat_arch = (
-		'noarch'  => '',
-		'i386'    => 'noarch',
-		'i486'    => 'i386',
-		'i586'    => 'i486',
-		'i686'    => 'i586',
-		'i786'    => 'i686',
-		'k6'      => 'i586',
-		'k7'      => 'k6',
-		'k8'      => 'k7',
-		'alpha'   => 'noarch',
-		'sparc'   => 'noarch',
-		'sparc32' => 'sparc',
-		'sparc64' => 'sparc32',
-		'ia64'	  => 'noarch',
-	       );
+use MDK::Common;
 
-$arch = `uname -m` || 'unknownarch';
-$arch =~ s/\s//g;
-
-print join ' ', map {
-		      my $arch = $arch;
+print join(' ', map {
+		      my $arch = arch();
 		      $arch = $compat_arch{$arch} while $arch && !-e "$_.$arch";
 		      -e "$_.$arch" ? "$_.$arch" : $_;
-		    } @ARGV;
-print "\n";
+		    } @ARGV), "\n";
-- 
cgit v1.2.1