summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-04 22:48:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-04 22:48:20 +0000
commitf16e5710a4948f6a623a20c58b27014914e71941 (patch)
treefdaff5e8e07b54a298e6d1a8cbe0cb899f84e556 /perl-install/pkgs.pm
parent5b6b2199066672d32a97d80d9ea137630a1a9ecc (diff)
downloaddrakx-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
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm5
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 {