diff options
| -rw-r--r-- | perl-install/network.pm | 4 |
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; |