From 393a1f6897917ed72268218092ffd3499b5313b2 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
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