add/remove spaces to make perl_checker happy

1 files changed, 7 insertions, 7 deletions

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index c7f337da4..88cacba9d 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -14,7 +14,7 @@ use MDK::Common::System qw(getVarsFromSh);
 sub write_cnx_script {
     my ($netc, $type, $up, $down, $type2) = @_;
     if ($type) {
-	$netc->{internet_cnx}{$type}{$_->[0]}=$_->[1] foreach [$connect_file, $up], [$disconnect_file, $down];
+	$netc->{internet_cnx}{$type}{$_->[0]} = $_->[1] foreach [$connect_file, $up], [$disconnect_file, $down];
 	$netc->{internet_cnx}{$type}{type} = $type2;
     } else {
 	foreach ($connect_file, $disconnect_file) {
@@ -36,7 +36,7 @@ sub write_secret_backend {
 
 sub ask_connect_now {
     my ($type) = @_;
-    $::Wizard_no_previous=1;
+    $::Wizard_no_previous = 1;
     #- FIXME : code the exception to be generated by ask_yesorno, to be able to remove the $::Wizard_no_previous=1;
     if ($in->ask_yesorno(N("Internet configuration"),
 			 N("Do you want to try to connect to the Internet now?")
@@ -58,8 +58,8 @@ sub ask_connect_now {
 		       N("The system doesn't seem to be connected to internet.
 Try to reconfigure your connection.");
 	if ($::isWizard) {
-	    $::Wizard_no_previous=1;
-	    $::Wizard_finished=1;
+	    $::Wizard_no_previous = 1;
+	    $::Wizard_finished = 1;
 	    $in->ask_okcancel(N("Network Configuration"), $m, 1);
 	    undef $::Wizard_no_previous;
 	    undef $::Wizard_finished;
@@ -128,7 +128,7 @@ sub detect_timezone {
 
 sub type2interface {
     my ($i) = @_;
-    $i=~/$_->[0]/ and return $_->[1] foreach [ modem => 'ppp'],
+    $i =~ /$_->[0]/ and return $_->[1] foreach [ modem => 'ppp'],
 					     [ isdn_internal => 'ippp'],
 					     [ isdn_external => 'ppp'],
 					     [ adsl => 'ppp'],
@@ -140,7 +140,7 @@ sub connected { gethostbyname("mandrakesoft.com") ? 1 : 0 }
 
 my $kid_pipe;
 sub connected_bg {
-    local $|=1;
+    local $| = 1;
     my ($ref) = @_;
     if (defined $kid_pipe) {
 	local *F;
@@ -169,7 +169,7 @@ my $kid_pid;
 my $current_connection_status;
 
 sub test_connected {
-    local $|=1;
+    local $| = 1;
     my ($cmd) = @_;
 
     if (!defined $current_connection_status) { $current_connection_status = -1 }