summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-26 11:56:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-26 11:56:49 +0000
commita47a4c19bebce17b299e89f459375530987da1ea (patch)
tree23f20367a30336994e7dbb01496fd241bc04f26d
parenteb4cc630c844819c52cf4baddd336f60d220b495 (diff)
downloaddrakx-a47a4c19bebce17b299e89f459375530987da1ea.tar
drakx-a47a4c19bebce17b299e89f459375530987da1ea.tar.gz
drakx-a47a4c19bebce17b299e89f459375530987da1ea.tar.bz2
drakx-a47a4c19bebce17b299e89f459375530987da1ea.tar.xz
drakx-a47a4c19bebce17b299e89f459375530987da1ea.zip
help perl another way that perl_checker prefers
-rw-r--r--perl-install/Xconfig/monitor.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm
index fc07484b4..6de16fe8c 100644
--- a/perl-install/Xconfig/monitor.pm
+++ b/perl-install/Xconfig/monitor.pm
@@ -90,7 +90,7 @@ sub choose {
return $ok;
}
- my %h_monitors = map {; "$_->{VendorName}|$_->{ModelName}" => $_ } @$monitors_db;
+ my %h_monitors = map { ("$_->{VendorName}|$_->{ModelName}" => $_) } @$monitors_db;
ask_monitor:
my $merged_name = do {