summaryrefslogtreecommitdiffstats
path: root/perl-install/crypto.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-21 14:08:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-21 14:08:43 +0000
commit859695925c701d7408c0f97825512e2260998fd2 (patch)
treed6e8d6c2ef903bebd5d9c235bc8922cc86ac3f29 /perl-install/crypto.pm
parent1275f71751148da1433ab6cc0c69124fb3d05baa (diff)
downloaddrakx-859695925c701d7408c0f97825512e2260998fd2.tar
drakx-859695925c701d7408c0f97825512e2260998fd2.tar.gz
drakx-859695925c701d7408c0f97825512e2260998fd2.tar.bz2
drakx-859695925c701d7408c0f97825512e2260998fd2.tar.xz
drakx-859695925c701d7408c0f97825512e2260998fd2.zip
don't pass prefix, use $::prefix
Diffstat (limited to 'perl-install/crypto.pm')
-rw-r--r--perl-install/crypto.pm8
1 files changed, 4 insertions, 4 deletions
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;
}