From 4781e491c32fdfe0dbe3cf97a8aca90040a9406b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Apr 2003 11:34:32 +0000
Subject: new perl_checker compliance

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

(limited to 'perl-install/Xconfig/monitor.pm')

diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm
index 372086fe9..1df15ecd5 100644
--- a/perl-install/Xconfig/monitor.pm
+++ b/perl-install/Xconfig/monitor.pm
@@ -42,10 +42,10 @@ sub from_raw_X {
 }
 
 sub configure {
-    my ($in, $raw_X, $auto) = @_;
+    my ($in, $raw_X, $b_auto) = @_;
 
     my $monitor = from_raw_X($raw_X);
-    choose($in, $monitor, $auto) or return;
+    choose($in, $monitor, $b_auto) or return;
     $raw_X->set_monitors($monitor);
     $monitor;
 }
@@ -67,12 +67,12 @@ sub configure_auto_install {
 }
 
 sub choose {
-    my ($in, $monitor, $auto) = @_;
+    my ($in, $monitor, $b_auto) = @_;
 
     my $monitors = monitors();
 
     my $ok = configure_automatic($monitor, $monitors);
-    if ($auto) {
+    if ($b_auto) {
 	log::l("Xconfig::monitor: auto failed") if !$ok;
 	return $ok;
     }
-- 
cgit v1.2.1