From a2a1080747fbdc16103e27332c9bc0931a5e57ee Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 8 Nov 2004 16:14:38 +0000
Subject: do not use slicing when selecting single values

---
 perl-install/network/netconnect.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
                             }
                         }
-- 
cgit v1.2.1