From 18f52beb0fd7ac8ac0b5c51762ef33434177845a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Feb 2004 13:57:35 +0000
Subject: fix reading stage1 network configuration

---
 perl-install/install2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 4a7e53449..9777eee6d 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -443,7 +443,7 @@ sub main {
 	if (my ($file) = glob_('/tmp/ifcfg-*')) {
 	    log::l("found network config file $file");
 	    my $l = network::network::read_interface_conf($file);
-	    $o->{intf} ||= { $l->{DEVICE} => $l };
+	    $o->{intf}{$l->{DEVICE}} ||= $l;
 	}
 	if (-e '/etc/resolv.conf') {
 	    my $file = '/etc/resolv.conf';
-- 
cgit v1.2.1