From d13151be5c57e67cc1a9faf8ad236f88507e06ce Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 14 Jul 2004 09:04:12 +0000
Subject: perl_checker fix, I should have done it before ...

---
 perl-install/install_steps_interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index cbc5cf915..032d62399 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -637,7 +637,7 @@ sub chooseCD {
     }
 
     if (install_any::method_is_from_ISO_images($o->{method})) {
-        $mediumsDescr{$_} = defined(install_any::find_ISO_image_labelled($_)) || 0 foreach (@mediumsDescr);
+        $mediumsDescr{$_} = defined(install_any::find_ISO_image_labelled($_)) || 0 foreach @mediumsDescr;
     } elsif ($method eq "cdrom") {
         #- if no other medium available or a poor beginner, we are choosing for him!
         #- note first CD is always selected and should not be unselected!
-- 
cgit v1.2.1