From dd40621fa1311c9bce97902e2db57f8b15fab449 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 18 Jul 1999 21:05:17 +0000
Subject: *** empty log message ***

---
 perl-install/pkgs.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 060add8c5..34a5774c9 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -5,6 +5,7 @@ use strict;
 use vars qw($fd);
 
 use common qw(:common :file);
+use install_any;
 use log;
 use smp;
 use fs;
@@ -119,7 +120,7 @@ sub init_db {
 }
 
 sub install {
-    my ($prefix, $method, $toInstall, $isUpgrade, $force) = @_;
+    my ($prefix, $toInstall, $isUpgrade, $force) = @_;
 
     my $db = c::rpmdbOpen($prefix) or die "error opening RPM database: ", c::rpmErrorString();
     log::l("opened rpm database");
@@ -131,7 +132,7 @@ sub install {
     foreach my $p (@$toInstall) {
 	my $fullname = sprintf "%s-%s-%s.%s.rpm", 
 	                       map { c::headerGetEntry($p->{header}, $_) } qw(name version release arch);
-	c::rpmtransAddPackage($trans, $p->{header}, $method->getFile($fullname) , $isUpgrade);
+	c::rpmtransAddPackage($trans, $p->{header}, install_any::imageGetFile($fullname) , $isUpgrade);
 	$nb++;
 	$total += $p->{size};
     }
-- 
cgit v1.2.1