add or remove spaces where need to please perl_checker

3 files changed, 7 insertions, 7 deletions

diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm
index 5e397e65d..3d2f472eb 100644
--- a/perl-install/Xconfig/card.pm
+++ b/perl-install/Xconfig/card.pm
@@ -457,7 +457,7 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf4_ver),
 			     $::force_xf4 = 0;
 			     $card->{server} = "Xpmac";
 			     $card->{prefer_xf3} = 1;
-			 }};
+			 } };
     }
     @choices;
 }
diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm
index dedac149c..135e1865f 100644
--- a/perl-install/Xconfig/monitor.pm
+++ b/perl-install/Xconfig/monitor.pm
@@ -73,7 +73,7 @@ sub choose {
 
     configure_automatic($monitor, $monitors) and $auto and return 1;
 
-    my %h_monitors = map { ; "$_->{VendorName}|$_->{ModelName}" => $_ } @$monitors;
+    my %h_monitors = map {; "$_->{VendorName}|$_->{ModelName}" => $_ } @$monitors;
 
   ask_monitor:
     my $merged_name = do {
diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
index 38d9f9377..8065eaacb 100644
--- a/perl-install/Xconfig/test.pm
+++ b/perl-install/Xconfig/test.pm
@@ -73,7 +73,7 @@ sub test {
       i: while (<F>) {
 	    if (Xconfig::card::using_xf4($card)) {
 		if (/^\(EE\)/ && !/Disabling/ || /^Fatal\b/) {
-		    my @msg = !/error/ && $_ ;
+		    my @msg = !/error/ && $_;
 		    local $_;
 		    while (<F>) {
 			/reporting a problem/ and last;
@@ -84,7 +84,7 @@ sub test {
 		}
 	    } else {
 		if (/\b(error|not supported)\b/i) {
-		    my @msg = !/error/ && $_ ;
+		    my @msg = !/error/ && $_;
 		    local $_;
 		    while (<F>) {
 			/not fatal/ and last i;
@@ -102,7 +102,7 @@ sub test {
     local *F;
     open F, "|perl 2>/dev/null";
     print F "use lib qw(", join(' ', @INC), ");\n";
-    print F q{
+    print F q(
         BEGIN { $::no_ugtk_init = 1 }
         require lang;
         require my_gtk; 
@@ -110,7 +110,7 @@ sub test {
 	use interactive::gtk;
         use run_program;
 
-        $::prefix = "} . $::prefix . q{";
+        $::prefix = ") . $::prefix . q(";
         $::isStandalone = 1;
 
         lang::bindtextdomain();
@@ -136,7 +136,7 @@ sub test {
 
         my $in = interactive::gtk->new;
 	$in->exit($in->ask_yesorno('', [ N("Is this the correct setting?"), $text ], 0) ? 0 : 222);
-    };
+    );
     my $rc = close F;
     my $err = $?;