diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-21 14:08:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-21 14:08:43 +0000 |
| commit | 859695925c701d7408c0f97825512e2260998fd2 (patch) | |
| tree | d6e8d6c2ef903bebd5d9c235bc8922cc86ac3f29 /perl-install/crypto.pm | |
| parent | 1275f71751148da1433ab6cc0c69124fb3d05baa (diff) | |
| download | drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.tar drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.tar.gz drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.tar.bz2 drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.tar.xz drakx-backup-do-not-use-859695925c701d7408c0f97825512e2260998fd2.zip | |
don't pass prefix, use $::prefix
Diffstat (limited to 'perl-install/crypto.pm')
| -rw-r--r-- | perl-install/crypto.pm | 8 |
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; } |