summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-06-23 06:22:28 +0000
committerOlivier Blin <oblin@mandriva.org>2005-06-23 06:22:28 +0000
commit48125c762598e6b8d2a9329356d47781515ff72e (patch)
tree2adfb2802ef554f36739df1e2246d3d794e92ab8 /perl-install
parent628201bb78756f77f876c88ed68d54a63eadba56 (diff)
downloaddrakx-48125c762598e6b8d2a9329356d47781515ff72e.tar
drakx-48125c762598e6b8d2a9329356d47781515ff72e.tar.gz
drakx-48125c762598e6b8d2a9329356d47781515ff72e.tar.bz2
drakx-48125c762598e6b8d2a9329356d47781515ff72e.tar.xz
drakx-48125c762598e6b8d2a9329356d47781515ff72e.zip
remove unused get() and ftp()
Diffstat (limited to 'perl-install')
-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)