summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-11-08 16:14:38 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-11-08 16:14:38 +0000
commita2a1080747fbdc16103e27332c9bc0931a5e57ee (patch)
treef734aa771059925e6c3db15b3958d1b2602695dc /perl-install/network/netconnect.pm
parent4be5d1c8d5e77f2599a0b08771134bdce5115605 (diff)
downloaddrakx-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.pm2
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);
}
}