diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-04 22:48:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-04 22:48:20 +0000 |
| commit | f16e5710a4948f6a623a20c58b27014914e71941 (patch) | |
| tree | fdaff5e8e07b54a298e6d1a8cbe0cb899f84e556 | |
| parent | 5b6b2199066672d32a97d80d9ea137630a1a9ecc (diff) | |
| download | drakx-backup-do-not-use-f16e5710a4948f6a623a20c58b27014914e71941.tar drakx-backup-do-not-use-f16e5710a4948f6a623a20c58b27014914e71941.tar.gz drakx-backup-do-not-use-f16e5710a4948f6a623a20c58b27014914e71941.tar.bz2 drakx-backup-do-not-use-f16e5710a4948f6a623a20c58b27014914e71941.tar.xz drakx-backup-do-not-use-f16e5710a4948f6a623a20c58b27014914e71941.zip | |
make perl_checker happy
| -rw-r--r-- | perl-install/pkgs.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 20adaa468..1422fd078 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -4,6 +4,7 @@ use diagnostics; use strict; use vars qw(*LOG %preferred $limitMinTrans %compssListDesc); +use MDK::Common::System; use common; use install_any; use commands; @@ -434,11 +435,11 @@ sub psUsingHdlist { ++$packages->{count}; #- take care of this one, so that desplist will be clean with index of package. my $pkg = [ (undef) x 8 ]; $pkg->[$FILE] = $_; $pkg->[$MEDIUM] = $m; my $specific_arch = packageArch($pkg); - if (!$specific_arch || compat_arch($specific_arch)) { + if (!$specific_arch || MDK::Common::System::compat_arch($specific_arch)) { my $old_pkg = $packages->{names}{packageName($pkg)}; if ($old_pkg) { if (packageVersion($pkg) eq packageVersion($old_pkg) && packageRelease($pkg) eq packageRelease($old_pkg)) { - if (better_arch($specific_arch, packageArch($old_pkg))) { + if (MDK::Common::System::better_arch($specific_arch, packageArch($old_pkg))) { log::l("replacing old package with package $_ with better arch: $specific_arch"); $packages->{names}{packageName($pkg)} = $pkg; } else { |