From 3f1a424f57a5331fe4639937045c5e5b7ba188f3 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 24 Sep 2001 10:47:55 +0000
Subject: bug fix

---
 perl-install/network/ethernet.pm   | 2 +-
 perl-install/network/netconnect.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 628d61886..0591df8d8 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -174,7 +174,7 @@ sub go_ethernet {
 sub configureNetwork {
     my ($netc, $intf, $first_time) = @_;
     local $_;
-    any::setup_thiskind($in, 'net', !$::expert, 1) if $netc->{autodetection};
+    any::setup_thiskind($in, 'net', !$::expert, 1);
     my @l = detect_devices::getNet() or die _("no network card found");
     my @all_cards = conf_network_card_backend ($netc, $intf, undef, undef, undef, undef);
 
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 79e605862..ea8c1574b 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -192,7 +192,7 @@ ifdown eth0
 			  changed => sub {
 			      return if !$netc->{autodetection};
 			      my $c = 0;
-			      $conf{adsl} and $c++;
+#-			      $conf{adsl} and $c++;
 			      $conf{cable} and $c++;
 			      my $a = keys(%{$netc->{autodetect}{lan}});
 			      0 < $a && $a <= $c and $conf{lan} = undef;
-- 
cgit v1.2.1