From 7d8c8f8b00a34baadfd02dfd098f864591253716 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 17 Apr 2000 22:59:53 +0000
Subject: no_comment

---
 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 2951c001c..c824af475 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -36,8 +36,8 @@ sub getFile($$) {
     my ($file, $host) = @_;
     log::l("getting crypto file $file on directory $host:$mirrors{$host}[1]/$::VERSION with login $mirrors{$host}[2]");
     my ($ftp, $retr) = ftp::new($_[1], "$mirrors{$host}[1]/$::VERSION",
-				($mirrors{$host}[2] ? ($mirrors{$host}[2]) : ()),
-				($mirrors{$host}[3] ? ($mirrors{$host}[3]) : ())
+				$mirrors{$host}[2] ? $mirrors{$host}[2] : (),
+				$mirrors{$host}[3] ? $mirrors{$host}[3] : ()
 			       );
     $$retr->close if $$retr;
     $$retr   = $ftp->retr($file) or ftp::rewindGetFile();
-- 
cgit v1.2.1