diff options
author | Damien Chaumette <dchaumette@mandriva.com> | 2003-09-15 19:57:43 +0000 |
---|---|---|
committer | Damien Chaumette <dchaumette@mandriva.com> | 2003-09-15 19:57:43 +0000 |
commit | ebbe42bd6fcb33e2b559808fbe628419b20e90d1 (patch) | |
tree | 5b6c11095b549f2b2ac1aa4b1e72d9fd6b7f4a9b /perl-install | |
parent | 36ac1e7fc40214f592dcf464dc7bbec53a81a77d (diff) | |
download | drakx-ebbe42bd6fcb33e2b559808fbe628419b20e90d1.tar drakx-ebbe42bd6fcb33e2b559808fbe628419b20e90d1.tar.gz drakx-ebbe42bd6fcb33e2b559808fbe628419b20e90d1.tar.bz2 drakx-ebbe42bd6fcb33e2b559808fbe628419b20e90d1.tar.xz drakx-ebbe42bd6fcb33e2b559808fbe628419b20e90d1.zip |
net install autodetection fix
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/network/netconnect.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 0d173ca93..60f1f062a 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -15,7 +15,7 @@ use MDK::Common::Globals "network", qw($in $prefix $connect_file $disconnect_fil my %conf; sub detect { - my ($auto_detect, $net_install) = @_; + my ($auto_detect, $_net_install) = @_; my $isdn = {}; require network::isdn; network::isdn->import; @@ -27,7 +27,9 @@ sub detect { require network::ethernet; network::ethernet->import; my @all_cards = conf_network_card_backend(); - map { $auto_detect->{lan}{$_->[0]} = $_->[1] } @all_cards if !$net_install; + foreach (@all_cards) { + $auto_detect->{lan}{$_->[0]} = $_->[1]; + } my $adsl = {}; require network::adsl; |