From 4b04d5db1b78e2a68a5db20154e437ce85ab638c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 30 Jan 2004 15:02:42 +0000 Subject: fix crash on module lookup when ifcfg- file is missing on disk (not yet configured interface case) --- perl-install/network/netconnect.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index eebd1b4b2..aedb1743a 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -670,7 +670,7 @@ If you don't know, choose 'use pppoe'"), if (!exists $adsl_devices{$ntf_name} && member($adsl_type, qw(manual dhcp))) { $auto_ip = $adsl_type eq 'dchp'; $find_lan_module->(); - $ethntf = $intf->{$ntf_name}; + $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name }; return 'lan_intf'; } network::adsl::adsl_probe_info($netcnx, $netc, $adsl_type, $ntf_name); @@ -727,7 +727,7 @@ You can find a driver on http://eciadsl.flashtux.org/"), allow_empty_list => 1, format => sub { $eth_intf{$_[0]} } } ]; }, post => sub { - $ethntf = $intf->{$ntf_name}; + $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name }; $::isInstall && $netc->{NET_DEVICE} eq $ethntf->{DEVICE} ? 'lan_alrd_cfg' : 'lan_protocol'; }, }, -- cgit v1.2.1