diff options
author | damien <damien@mandriva.com> | 2001-04-02 12:22:46 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2001-04-02 12:22:46 +0000 |
commit | 3100c29421ed9021c9a7a424ee7758e596a3d6a3 (patch) | |
tree | 6b953fcf6560b16d61758311e2be4da10e491d27 | |
parent | ef92f67e91dc84c65af33f55d46a015e34a8f6f4 (diff) | |
download | drakx-3100c29421ed9021c9a7a424ee7758e596a3d6a3.tar drakx-3100c29421ed9021c9a7a424ee7758e596a3d6a3.tar.gz drakx-3100c29421ed9021c9a7a424ee7758e596a3d6a3.tar.bz2 drakx-3100c29421ed9021c9a7a424ee7758e596a3d6a3.tar.xz drakx-3100c29421ed9021c9a7a424ee7758e596a3d6a3.zip |
updated
-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; |