summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-04 23:28:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-04 23:28:09 +0000
commit8def886f3e44af53bc1116c875c32da0d1d6cee9 (patch)
tree50784bac3994413c1e0f907273a04d8d400f136f /perl-install/common.pm
parentf16e5710a4948f6a623a20c58b27014914e71941 (diff)
downloaddrakx-8def886f3e44af53bc1116c875c32da0d1d6cee9.tar
drakx-8def886f3e44af53bc1116c875c32da0d1d6cee9.tar.gz
drakx-8def886f3e44af53bc1116c875c32da0d1d6cee9.tar.bz2
drakx-8def886f3e44af53bc1116c875c32da0d1d6cee9.tar.xz
drakx-8def886f3e44af53bc1116c875c32da0d1d6cee9.zip
moved arch() and alike to MDK::Common::System
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm15
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;