diff options
Diffstat (limited to 'perl-install/crypto.pm')
-rw-r--r-- | perl-install/crypto.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm index 6a33baff2..d4aabda4e 100644 --- a/perl-install/crypto.pm +++ b/perl-install/crypto.pm @@ -108,7 +108,7 @@ sub bestMirror { sub version { require pkgs; my $pkg = pkgs::packageByName($::o->{packages}, 'mandrake-release'); - $pkg && pkgs::packageVersion($pkg) || '8.2'; #- safe but dangerous ;-) + $pkg && $pkg->version || '8.2'; #- safe but dangerous ;-) } sub dir { $mirrors{$_[0]}[1] . '/' . version() } @@ -128,8 +128,6 @@ sub getFile { $$retr ||= $ftp->retr($file); } -sub getDepslist { getFile("depslist-crypto", $_[0]) or die "unable to get depslist-crypto" } - sub getPackages { my ($prefix, $packages, $mirror) = @_; |