summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-01 08:50:04 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-01 08:50:04 +0000
commit14afe7bf9b41eed6ce9cfad0ecac297a0b2de216 (patch)
treebb31a956d1ab819491600df39b5bceff5e3d44b4 /perl-install
parentbac860f5ceab5f048818dc3e8c6cb2eb206a3ad6 (diff)
downloaddrakx-backup-do-not-use-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.tar
drakx-backup-do-not-use-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.tar.gz
drakx-backup-do-not-use-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.tar.bz2
drakx-backup-do-not-use-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.tar.xz
drakx-backup-do-not-use-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.zip
perl_checker cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 2 insertions, 2 deletions
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);