From 3100c29421ed9021c9a7a424ee7758e596a3d6a3 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 2 Apr 2001 12:22:46 +0000
Subject: updated

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

diff --git a/perl-install/network.pm b/perl-install/network.pm
index 80e4e4524..9b21682d4 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -290,9 +290,9 @@ such as ``mybox.mylab.myco.com''."),
 	    unlink "$prefix/etc/sysconfig/network-scripts/net_cnx_down";
 	    undef $netc->{NET_DEVICE};
 	    foreach (@l) {
-		$intf->{$device}{IPADDR} =~ $ip_regexp;
+		$intf->{$_}{IPADDR} =~ $ip_regexp;
 		my $ip1=$1; my $ip2=$2; my $ip3=$3; my $ip4=$4;
-		$intf->{$device}{NETMASK} =~ $ip_regexp;
+		$intf->{$_}{NETMASK} =~ $ip_regexp;
 		my $m1=$1; my $m2=$2; my $m3=$3; my $m4=$4;
 		$ip1&=$m1; $ip2&=$m2; $ip3&=$m3; $ip4&=$m4;
 		$netc->{GATEWAY} =~ $ip_regexp;
-- 
cgit v1.2.1