diff options
| -rw-r--r-- | perl-install/install_any.pm | 4 |
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); |