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/crypto.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index 927a7de15..76821f38c 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -108,8 +108,8 @@ sub dir { $mirrors{$_[0]}[1] . ($::corporate && '/corporate' || '') . '/' . vers
 sub ftp($) { ftp::new($_[0], dir($_[0])) }
 
 sub getFile {
-    my ($file, $host) = @_;
-    $host ||= $crypto::host;
+    my ($file, $o_host) = @_;
+    my $host = $o_host || $crypto::host;
     my $dir = dir($host) . ($file =~ /\.rpm$/ && "/RPMS");
     log::l("getting crypto file $file on directory $dir with login $mirrors{$host}[2]");
     my ($ftp, $retr) = ftp::new($host, $dir,
-- 
cgit v1.2.1