summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm14
1 files changed, 10 insertions, 4 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 76a7fdba7..25e4d3203 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -143,6 +143,12 @@ sub real_main {
} else { $module = "" }
};
+ my $is_hotplug_blacklisted = sub {
+ bool2yesno($is_wireless ||
+ member($module, qw(b44 forcedeth madwifi_pci)) ||
+ find { $_->{device} eq $ntf_name } detect_devices::pcmcia_probe());
+ };
+
my %adsl_devices = (
speedtouch => N("Alcatel speedtouch USB modem"),
sagem => N("Sagem USB modem"),
@@ -770,10 +776,12 @@ If you don't know, choose 'use pppoe'"),
],
post => sub {
$netcnx->{type} = 'adsl';
+ # blacklist bogus driver, enable ifplugd support else:
+ $find_lan_module->();
+ $ethntf->{MII_NOT_SUPPORTED} ||= $is_hotplug_blacklisted->();
# process static/dhcp ethernet devices:
if (!exists $adsl_devices{$ntf_name} && member($adsl_type, qw(manual dhcp))) {
$auto_ip = $adsl_type eq 'dhcp';
- $find_lan_module->();
return 'lan_intf';
}
network::adsl::adsl_probe_info($netcnx, $netc, $adsl_type, $ntf_name);
@@ -891,9 +899,7 @@ Modifying the fields below will override this configuration."),
map { $_->{device} } detect_devices::pcmcia_probe()));
$needhostname = $ethntf->{NEEDHOSTNAME} !~ /no/;
# blacklist bogus driver, enable ifplugd support else:
- my @devs = detect_devices::pcmcia_probe();
- $ethntf->{MII_NOT_SUPPORTED} ||= bool2yesno($is_wireless || member($module, qw(b44 forcedeth madwifi_pci))
- || find { $_->{device} eq $ntf_name } @devs);
+ $ethntf->{MII_NOT_SUPPORTED} ||= $is_hotplug_blacklisted->();
$hotplug = !text2bool($ethntf->{MII_NOT_SUPPORTED});
$track_network_id = $::isStandalone && $ethntf->{HWADDR} || detect_devices::isLaptop();
delete $ethntf->{NETWORK};