From 732b403d9a4b616f95bb5171535d3b8f9035b42f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 20 May 2003 07:46:08 +0000
Subject: perl_checker fix

---
 perl-install/Xconfig/xfreeX.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Xconfig/xfreeX.pm b/perl-install/Xconfig/xfreeX.pm
index 7f79f19f9..deb69823c 100644
--- a/perl-install/Xconfig/xfreeX.pm
+++ b/perl-install/Xconfig/xfreeX.pm
@@ -189,8 +189,8 @@ sub set_resolution {
 		    '"default"';
 		} else {
 		    my @Modes = grep { 
-			m/(\d+)x(\d+)/;
-			$1 <= $resolution->{X} && (!$resolution->{Y} || $2 <= $resolution->{Y});
+                  if_(m/(\d+)x(\d+)/,
+                      $1 <= $resolution->{X} && (!$resolution->{Y} || $2 <= $resolution->{Y}));
 		    } reverse our @resolutions;
 		    join(" ", map { qq("$_") } @Modes);
 		}
-- 
cgit v1.2.1