summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network.pm4
1 files 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;