From aaff6dff3ac0e9b19810fc1bc836f30c19918e5d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 11:59:03 +0000
Subject: make new perl_checker happy

---
 perl-install/install_steps_interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index c28187579..212e3fd4a 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -719,8 +719,8 @@ sub reallyChooseGroups {
 sub chooseCD {
     my ($o, $packages) = @_;
     my @mediums = grep { $_ != $install_any::boot_medium } pkgs::allMediums($packages);
-    my @mediumsDescr = ();
-    my %mediumsDescr = ();
+    my @mediumsDescr;
+    my %mediumsDescr;
 
     if (!common::usingRamdisk()) {
 	#- mono-cd in case of no ramdisk
-- 
cgit v1.2.1