diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 19:11:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 19:11:59 +0000 |
| commit | bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (patch) | |
| tree | 42b0132d629d68fffde6b0e828126c18c0c3d1ed /perl-install/Xconfig/test.pm | |
| parent | 195f44c2da47b9f0df0461b593935d89619a5a0e (diff) | |
| download | drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.gz drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.bz2 drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.xz drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.zip | |
add or remove spaces where need to please perl_checker
Diffstat (limited to 'perl-install/Xconfig/test.pm')
| -rw-r--r-- | perl-install/Xconfig/test.pm | 10 |
1 files changed, 5 insertions, 5 deletions
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 = $?; |