From bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Nov 2002 19:11:59 +0000 Subject: add or remove spaces where need to please perl_checker --- perl-install/Xconfig/card.pm | 2 +- perl-install/Xconfig/monitor.pm | 2 +- perl-install/Xconfig/test.pm | 10 +++++----- 3 files changed, 7 insertions(+), 7 deletions(-) (limited to 'perl-install/Xconfig') 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 () { if (Xconfig::card::using_xf4($card)) { if (/^\(EE\)/ && !/Disabling/ || /^Fatal\b/) { - my @msg = !/error/ && $_ ; + my @msg = !/error/ && $_; local $_; while () { /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 () { /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 = $?; -- cgit v1.2.1