From 14afe7bf9b41eed6ce9cfad0ecac297a0b2de216 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 1 Sep 2004 08:50:04 +0000
Subject: perl_checker cleanup

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index b4d96925d..38708ee54 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -372,7 +372,7 @@ If you want to skip some of them, you can unselect them now."),
 	    label => sub { $_[0][3] },
 	},
     );
-    log::l("keeping media " . map { $_->[1] } @$l);
+    log::l("keeping media " . join ',', map { $_->[1] } @$l);
     @$l;
 }
 
@@ -414,7 +414,7 @@ sub selectSupplMedia {
 	    : int(keys %{$o->{packages}{mediums}}) + 1;
 	local $::isWizard = 0;
 	#- configure network if needed
-	if (!our $asked && !scalar keys %{$o->{intf}}) {
+	if (!(our $asked) && !scalar keys %{$o->{intf}}) {
 	    $asked = 1;
 	    #- install basesystem now
 	    $::o->do_pkgs->ensure_is_installed('basesystem', undef, 1);
-- 
cgit v1.2.1