From 4781e491c32fdfe0dbe3cf97a8aca90040a9406b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Apr 2003 11:34:32 +0000
Subject: new perl_checker compliance

---
 perl-install/ftp.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index 05e892c62..c971898a1 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -17,22 +17,22 @@ sub fromEnv() {
 }
 
 sub new {
-    my ($host, $prefix, $login, $password) = @_;
+    my ($host, $prefix, $o_login, $o_password) = @_;
     my @l = do { if ($hosts{"$host$prefix"}) {
 	@{$hosts{"$host$prefix"}};
     } else {
 	my %options = (Passive => 1, Timeout => 60, Port => 21);
 	$options{Firewall} = $ENV{PROXY} if $ENV{PROXY};
 	$options{Port} = $ENV{PROXYPORT} if $ENV{PROXYPORT};
-	unless ($login) {
-	    $login = 'anonymous';
-	    $password = '-drakx@';
+	unless ($o_login) {
+	    $o_login = 'anonymous';
+	    $o_password = '-drakx@';
 	}
 
 	my $ftp;
 	foreach (1..10) {
 	    $ftp = Net::FTP->new(network::resolv($host), %options) or die;
-	    $ftp && $ftp->login($login, $password) and last;
+	    $ftp && $ftp->login($o_login, $o_password) and last;
 
 	    log::l("ftp login failed, sleeping before trying again");
 	    sleep 5 * $_;
-- 
cgit v1.2.1