1 files changed, 0 insertions, 10 deletions
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)