diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-01 08:50:04 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-01 08:50:04 +0000 |
| commit | 14afe7bf9b41eed6ce9cfad0ecac297a0b2de216 (patch) | |
| tree | bb31a956d1ab819491600df39b5bceff5e3d44b4 /perl-install | |
| parent | bac860f5ceab5f048818dc3e8c6cb2eb206a3ad6 (diff) | |
| download | drakx-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.tar drakx-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.tar.gz drakx-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.tar.bz2 drakx-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.tar.xz drakx-14afe7bf9b41eed6ce9cfad0ecac297a0b2de216.zip | |
perl_checker cleanup
Diffstat (limited to 'perl-install')
| -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); |