From 4006b6abce88b7a53502926f921ae1408b5dd37e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Nov 2002 11:46:04 +0000
Subject: add/remove spaces to make perl_checker happy

---
 perl-install/network/isdn.pm       | 2 +-
 perl-install/network/netconnect.pm | 2 +-
 perl-install/network/tools.pm      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 183e79ac0..8e1c00261 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -197,7 +197,7 @@ sub isdn_ask {
     
     #- ISDN card already detected
     if (!$::expert && defined $netc->{autodetect}{isdn}{card_type}) {
-	$in->ask_yesorno(N("ISDN Configuration"), N("Found \"%s\" interface do you want to use it ?",$netc->{autodetect}{isdn}{description}), 1) or return;
+	$in->ask_yesorno(N("ISDN Configuration"), N("Found \"%s\" interface do you want to use it ?", $netc->{autodetect}{isdn}{description}), 1) or return;
 	$isdn->{$_} = $netc->{autodetect}{isdn}{$_} foreach qw(description vendor id card_type driver type mem io io0 io1 irq firmware);
 	goto isdn_ask_step_3;
     }
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index ad37fbe60..c91e39672 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -582,7 +582,7 @@ sub load_conf {
     $netcnx->{modem}=$modem;
     $netcnx->{modem}=$isdn_external;
     $netcnx->{isdn_internal}=$isdn;
-    -e "$prefix/etc/sysconfig/network" and put_in_hash($netc,network::read_conf("$prefix/etc/sysconfig/network"));
+    -e "$prefix/etc/sysconfig/network" and put_in_hash($netc, network::read_conf("$prefix/etc/sysconfig/network"));
     foreach (glob_("$prefix/etc/sysconfig/ifcfg-*")) {
 	my $l = network::read_interface_conf($_);
 	$intf->{$l->{DEVICE}} = $l;
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 299016681..c7f337da4 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -93,7 +93,7 @@ sub ask_info2 {
 		   if__($netc->{dnsServer2}, { label => N("Provider dns 1 (optional)"), val => \$netc->{dnsServer2} }),
 		   if__($netc->{dnsServer3}, { label => N("Provider dns 2 (optional)"), val => \$netc->{dnsServer3} }),
 		   if__($cnx->{vpivci}, { label => N("Choose your country"), val => \$netc->{vpivci}, list => detect_timezone() }),
-		   if__($cnx->{dialing_mode}, { label => N("Dialing mode"), val => \$cnx->{dialing_mode},list => ["auto","manual"] }),
+		   if__($cnx->{dialing_mode}, { label => N("Dialing mode"), val => \$cnx->{dialing_mode},list => ["auto", "manual"] }),
 		   if__($cnx->{speed}, { label => N("Connection speed"), val => \$cnx->{speed}, list => ["64 Kb/s", "128 Kb/s"] }),
 		   if__($cnx->{huptimeout}, { label => N("Connection timeout (in sec)"), val => \$cnx->{huptimeout} }),
 		   if__($cnx->{login}, { label => N("Account Login (user name)"), val => \$cnx->{login} }),
-- 
cgit v1.2.1