From 638167d117b0532ef8ca0806f1a0c25659c179d7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Dec 2002 18:30:48 +0000
Subject: syntax changes to make perl_checker happy

---
 perl-install/network/modem.pm      | 6 +++---
 perl-install/network/netconnect.pm | 8 ++++----
 perl-install/network/network.pm    | 4 ++--
 3 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index b466fabca..08fafc265 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -24,11 +24,11 @@ sub configure {
 #    $netcnx->{$netcnx->{type}}->{connection} = ($netcnx->{$netcnx->{type}}->{auth} eq 'PAP' || $netcnx->{$netcnx->{type}}->{auth} eq 'CHAP') && $intf->{ppp0}{PAPNAME};
 #    $modem->{device} = readlink "$prefix/dev/modem";
     foreach (cat_("/usr/share/config/kppprc")) {
-	/^DNS=(.*)$/ and ($modem->{dns1}, $modem->{dns2}) = split (',', $1);
+	/^DNS=(.*)$/ and ($modem->{dns1}, $modem->{dns2}) = split(',', $1);
     }
     my $secret = network::tools::read_secret_backend();
     foreach (@$secret) {
-	$modem->{passwd} = $_->{passwd} if ($_->{login} eq $modem->{login});
+	$modem->{passwd} = $_->{passwd} if $_->{login} eq $modem->{login};
     }
     foreach (cat_("/etc/sysconfig/network-scripts/chat-ppp0")) {
 	if (/.*ATDT(\d*).*/) {
@@ -65,7 +65,7 @@ sub pppConfig {
     }
     $::isStandalone || $in->set_help('configureNetworkISP');
     $in->ask_from('', N("Dialup options"), [
-{ label => N("Connection name"), val => \$modem->{connection}},
+{ label => N("Connection name"), val => \$modem->{connection} },
 { label => N("Phone number"), val => \$modem->{phone} },
 { label => N("Login ID"), val => \$modem->{login} },
 { label => N("Password"), val => \$modem->{passwd}, hidden => 1 },
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index d9c7690f7..ea46eb9a8 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -415,19 +415,19 @@ ISDNHomePhone=$isdn->{phone_in}
 ISDNLogin=$isdn->{login}
 ISDNPassword=$isdn->{passwd}
 ISDNConfirmPassword=$isdn->{passwd2}
-".
+" .
 #PPPInterfacesList=
 "PPPDevice=$modem->{device}
 PPPDeviceSpeed=
 PPPConnectionName=$modem->{connection}
-".
+" .
 #PPPProviderPhone=$modem->{phone}
 "PPPProviderDomain=$modem->{domain}
-".
+" .
 #PPPProviderDNS1=$modem->{dns1}
 #PPPProviderDNS2=$modem->{dns2}
 "PPPLogin=$modem->{login}
-".
+" .
 #PPPPassword=$modem->{passwd}
 #PPPConfirmPassword=$modem->{passwd}
 "PPPAuthentication=$modem->{auth}
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 07aac0b62..4278136fb 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -239,14 +239,14 @@ sub dns {
     my $mask = masked_ip($ip);
     my @masked = masked_ip($ip) =~ $ip_regexp;
     $masked[3]  = 2;
-    join (".", @masked);
+    join(".", @masked);
 
 }
 sub gateway {
     my ($ip) = @_;
     my @masked = masked_ip($ip) =~ $ip_regexp;
     $masked[3]  = 1;
-    join (".", @masked);
+    join(".", @masked);
 
 }
 
-- 
cgit v1.2.1