diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-11-08 16:14:38 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-11-08 16:14:38 +0000 |
commit | a2a1080747fbdc16103e27332c9bc0931a5e57ee (patch) | |
tree | f734aa771059925e6c3db15b3958d1b2602695dc /perl-install/network/netconnect.pm | |
parent | 4be5d1c8d5e77f2599a0b08771134bdce5115605 (diff) | |
download | drakx-a2a1080747fbdc16103e27332c9bc0931a5e57ee.tar drakx-a2a1080747fbdc16103e27332c9bc0931a5e57ee.tar.gz drakx-a2a1080747fbdc16103e27332c9bc0931a5e57ee.tar.bz2 drakx-a2a1080747fbdc16103e27332c9bc0931a5e57ee.tar.xz drakx-a2a1080747fbdc16103e27332c9bc0931a5e57ee.zip |
do not use slicing when selecting single values
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r-- | perl-install/network/netconnect.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 57dd82c88..1cf45a46c 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1159,7 +1159,7 @@ See iwpriv(8) man page for further information."), # $netc->{GATEWAY} ||= gateway($ethntf->{IPADDR}); if ($ntf_name eq "sagem") { my @sagem_ip = split(/\./, $ethntf->{IPADDR}); - @sagem_ip[3] = 254; + $sagem_ip[3] = 254; $netc->{GATEWAY} = join(".", @sagem_ip); } } |