From 393a1f6897917ed72268218092ffd3499b5313b2 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 19 Jul 2001 23:53:04 +0000 Subject: correct bug. thanx to the little stagiaire. --- perl-install/network/netconnect.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 03b7d7fd5..36c319c7d 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -492,6 +492,7 @@ sub read_net_conf { add2hash($netcnx, { getVarsFromSh("$prefix/etc/sysconfig/draknet") }); $netc->{$_} = $netcnx->{$_} foreach 'NET_DEVICE', 'NET_INTERFACE'; #- print "type : $netcnx->{type}\n device : $netcnx->{NET_DEVICE}\n interface : $netcnx->{NET_INTERFACE}\n"; + $netcnx->{$netcnx->{type}}||={}; add2hash($netcnx->{$netcnx->{type}}, { getVarsFromSh("$prefix/etc/sysconfig/draknet." . $netcnx->{type}) }); } -- cgit v1.2.1