From 1a649e4bd1f0a76ec28fcb851b2f8fe2d6d967e1 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 10 Jul 2002 16:25:10 +0000
Subject: use perl-URPM instead of rpmtools.

---
 perl-install/crypto.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install/crypto.pm')

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) = @_;
 
-- 
cgit v1.2.1