From ab822df75cf6884051525b61dd3e21f2254994b4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 12 Feb 2003 11:26:15 +0000
Subject: perl_checker compliance ("ref" now need parentheses in many case)

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

(limited to 'perl-install/network/netconnect.pm')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 37336a153..84fe157fe 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -466,7 +466,7 @@ sub get_net_device {
 	my $connect_file = "/etc/sysconfig/network-scripts/net_cnx_up";
 	my $network_file = "/etc/sysconfig/network";
 	if (cat_("$prefix$connect_file") =~ /network/) {
-		${ { getVarsFromSh("$prefix$network_file") } }{GATEWAYDEV};
+		${{ getVarsFromSh("$prefix$network_file") }}{GATEWAYDEV};
 	} else {
 		"ppp+";
 	};
-- 
cgit v1.2.1