summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfig')
-rw-r--r--perl-install/Xconfig/card.pm2
-rw-r--r--perl-install/Xconfig/monitor.pm2
-rw-r--r--perl-install/Xconfig/test.pm10
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 = $?;