From f16e5710a4948f6a623a20c58b27014914e71941 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 4 Aug 2001 22:48:20 +0000
Subject: make perl_checker happy

---
 perl-install/pkgs.pm | 5 +++--
 1 file 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 {
-- 
cgit v1.2.1