summaryrefslogtreecommitdiffstats
path: root/perl-install/crypto.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 14:25:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 14:25:49 +0000
commit51d6259470fb1d02503a2c0de2c806026d87c396 (patch)
tree5c7671b3a9121c099648c82007f8615aaaa022c8 /perl-install/crypto.pm
parent823defcb7c1e66a5aafb9d94ca9c7ecef238f12c (diff)
downloaddrakx-51d6259470fb1d02503a2c0de2c806026d87c396.tar
drakx-51d6259470fb1d02503a2c0de2c806026d87c396.tar.gz
drakx-51d6259470fb1d02503a2c0de2c806026d87c396.tar.bz2
drakx-51d6259470fb1d02503a2c0de2c806026d87c396.tar.xz
drakx-51d6259470fb1d02503a2c0de2c806026d87c396.zip
use if_() where possible (as reported by perl_checker)
Diffstat (limited to 'perl-install/crypto.pm')
-rw-r--r--perl-install/crypto.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index c44723e14..36912dc69 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -114,8 +114,8 @@ sub getFile {
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,
- $mirrors{$host}[2] ? $mirrors{$host}[2] : (),
- $mirrors{$host}[3] ? $mirrors{$host}[3] : ()
+ if_($mirrors{$host}[2], $mirrors{$host}[2]),
+ if_($mirrors{$host}[3], $mirrors{$host}[3])
);
$$retr->close if $$retr;
$$retr = $ftp->retr($file) or ftp::rewindGetFile();