diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-04 23:28:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-04 23:28:09 +0000 |
| commit | 8def886f3e44af53bc1116c875c32da0d1d6cee9 (patch) | |
| tree | 50784bac3994413c1e0f907273a04d8d400f136f /perl-install/common.pm | |
| parent | f16e5710a4948f6a623a20c58b27014914e71941 (diff) | |
| download | drakx-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.pm | 15 |
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; |