From 48125c762598e6b8d2a9329356d47781515ff72e Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 23 Jun 2005 06:22:28 +0000
Subject: remove unused get() and ftp()

---
 perl-install/crypto.pm | 10 ----------
 1 file changed, 10 deletions(-)

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

diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index 8ce2974c9..a46b1f965 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -155,7 +155,6 @@ sub version() {
 }
 
 sub dir { $mirrors{$_[0]}[1] }
-sub ftp($) { ftp::new($_[0], dir($_[0])) }
 
 sub getFile {
     my ($file, $o_host) = @_;
@@ -212,15 +211,6 @@ sub getPackages {
     return $update_medium;
 }
 
-sub get {
-    my ($mirror, $dir, @files) = @_;
-    foreach (@files) {
-	log::l("crypto: downloading $_");
-	ftp($mirror)->get($_, "$dir/$_"); 
-    }
-    int @files;
-}
-
 1;
 
 #- mirror list, hardcoded here to be used in mini-cds (ftp suppl. media)
-- 
cgit v1.2.1