From 7ac401f247fda28ae9d03b8b507046566c43b513 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 12 Apr 2001 08:19:45 +0000
Subject: corrected network connection

---
 perl-install/network.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/network.pm')

diff --git a/perl-install/network.pm b/perl-install/network.pm
index a1350dd8a..174692d4d 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -189,7 +189,8 @@ sub dnsServers {
 
 sub findIntf {
     my ($intf, $device) = @_;
-    $intf->{$device} ||= { DEVICE => $device };
+    $intf->{$device}->{DEVICE} = $device;
+    $intf->{$device};
 }
 #PAD \s* a la fin
 my $ip_regexp = qr/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/;
-- 
cgit v1.2.1