From 859695925c701d7408c0f97825512e2260998fd2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Dec 2004 14:08:43 +0000 Subject: don't pass prefix, use $::prefix --- perl-install/crypto.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/crypto.pm') diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm index 670661429..cd04bdef9 100644 --- a/perl-install/crypto.pm +++ b/perl-install/crypto.pm @@ -138,7 +138,7 @@ sub getFile { } sub getPackages { - my ($prefix, $packages, $mirror) = @_; + my ($packages, $mirror) = @_; $crypto::host = $mirror; @@ -158,7 +158,7 @@ sub getPackages { #- extract hdlist of crypto, then depslist. require pkgs; - my $update_medium = pkgs::psUsingHdlist($prefix, 'ftp', $packages, "hdlist-updates.cz", "1u", "", + my $update_medium = pkgs::psUsingHdlist('ftp', $packages, "hdlist-updates.cz", "1u", "", "Updates for Mandrakelinux " . version(), 1, $fhdlist, $pubkey); if ($update_medium) { log::l("read updates hdlist"); @@ -170,8 +170,8 @@ sub getPackages { $update_medium->{update} = 1; #- search for packages to update. - $packages->{rpmdb} ||= pkgs::rpmDbOpen($prefix); - pkgs::selectPackagesToUpgrade($packages, $prefix, $update_medium); + $packages->{rpmdb} ||= pkgs::rpmDbOpen(); + pkgs::selectPackagesToUpgrade($packages, $update_medium); } return $update_medium; } -- cgit v1.2.1