summaryrefslogtreecommitdiffstats
path: root/perl-install/ftp.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-30 18:50:40 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-30 18:50:40 +0000
commit1defcba73b989b6a28826c563417a7c0fc251052 (patch)
tree1d5bff21637dc8fb4f21fb9846ef6175c045d3f5 /perl-install/ftp.pm
parentfb80b8a8984779543f0f0c50d7f6dcb995e0ce96 (diff)
downloaddrakx-backup-do-not-use-1defcba73b989b6a28826c563417a7c0fc251052.tar
drakx-backup-do-not-use-1defcba73b989b6a28826c563417a7c0fc251052.tar.gz
drakx-backup-do-not-use-1defcba73b989b6a28826c563417a7c0fc251052.tar.bz2
drakx-backup-do-not-use-1defcba73b989b6a28826c563417a7c0fc251052.tar.xz
drakx-backup-do-not-use-1defcba73b989b6a28826c563417a7c0fc251052.zip
no_comment
Diffstat (limited to 'perl-install/ftp.pm')
-rw-r--r--perl-install/ftp.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index 0879a8b72..c33a53e55 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -7,6 +7,8 @@ use log;
# non-rentrant!!
+my $retr;
+
1;
@@ -45,7 +47,6 @@ sub new {
}
-my $retr;
sub getFile($) {
$ftp ||= new();
$retr->close if $retr;