diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-18 21:05:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-18 21:05:17 +0000 |
| commit | dd40621fa1311c9bce97902e2db57f8b15fab449 (patch) | |
| tree | 021c7c75ccde203bbc43ee77a66f9585d9157c61 /perl-install/pkgs.pm | |
| parent | 61e87a9fb56f97ae843557511ba3609f9849cc2e (diff) | |
| download | drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.gz drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.bz2 drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.tar.xz drakx-dd40621fa1311c9bce97902e2db57f8b15fab449.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/pkgs.pm')
| -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 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}; } |