diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-05-22 20:57:51 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-05-22 20:57:51 +0000 |
| commit | c15afb4a54dd6003ed89efaf6d42ef2db7eb887f (patch) | |
| tree | c56ca90952b5e6499f897d11f73657d7cfc7a55c /perl-install/common.pm | |
| parent | 58d2d2741ce5d150377e92b36d3ea5aaec97eb90 (diff) | |
| download | drakx-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.tar drakx-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.tar.gz drakx-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.tar.bz2 drakx-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.tar.xz drakx-c15afb4a54dd6003ed89efaf6d42ef2db7eb887f.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 643201b3e..0a9a29271 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -136,14 +136,12 @@ sub expand_symlinks { } sub arch() { - require Config; - Config->import; - no strict; - $Config{archname} =~ /(.*)-/ and $1; + require c; + c::kernel_arch(); } sub better_arch { my ($new, $old) = @_; - while ($new && $new != $old) { $new = $compat_arch{$_} } + while ($new && $new ne $old) { $new = $compat_arch{$new} } $new; } sub compat_arch { better_arch(arch(), $_[0]) } |