summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/crypto.pm10
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)