1 files changed, 1 insertions, 14 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 2b4ce4eac..80b406780 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -8,7 +8,7 @@ use vars qw(@ISA @EXPORT $SECTORSIZE);
 
 @ISA = qw(Exporter);
 # no need to export ``_''
-@EXPORT = qw(arch $SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt isCdNotEjectable compat_arch better_arch);
+@EXPORT = qw($SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt isCdNotEjectable);
 
 # perl_checker: RE-EXPORT-ALL
 push @EXPORT, @MDK::Common::EXPORT;
@@ -30,19 +30,6 @@ sub _ {
 }
 sub __ { $_[0] }
 
-sub arch() {
-    require c;
-    c::kernel_arch();
-}
-sub better_arch {
-    my ($new, $old) = @_;
-    while ($new && $new ne $old) { $new = $compat_arch{$new} }
-    $new;
-}
-sub compat_arch { better_arch(arch(), $_[0]) }
-
-
-
 sub salt {
     my ($nb) = @_;
     require devices;