From ebbe42bd6fcb33e2b559808fbe628419b20e90d1 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Mon, 15 Sep 2003 19:57:43 +0000
Subject: net install autodetection fix

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

(limited to 'perl-install')

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;
-- 
cgit v1.2.1