From b0d554c4155060ed665844fdf7b2a08db9bb3356 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Nov 2002 20:50:12 +0000
Subject: perl_checker adaptations

---
 perl-install/ftp.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index 0af478004..618943573 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -52,7 +52,7 @@ sub getFile {
     my ($f, @para) = @_;
     $f eq 'XXX' and rewindGetFile(), return; #- special case to force closing connection.
     foreach (1..3) {
-	my ($ftp, $retr) = new(@para ? @para : fromEnv);
+	my ($ftp, $retr) = new(@para ? @para : fromEnv());
 	eval { $$retr->close if $$retr };
 	$@ and rewindGetFile(); #- in case Timeout got us on "->close"
 	$$retr = $ftp->retr($f) and return $$retr;
-- 
cgit v1.2.1