From 73c851144720e28b21a491b6250385170db9d752 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 24 Apr 2003 19:00:12 +0000 Subject: perl_checker adaptations + fixes --- perl-install/Xconfig/monitor.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/Xconfig/monitor.pm') diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index 1df15ecd5..27475c0d1 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -9,7 +9,7 @@ use any; use log; -sub good_default_monitor { +sub good_default_monitor() { arch() =~ /ppc/ ? (detect_devices::get_mac_model() =~ /^iBook/ ? 'Apple|iBook 800x600' : 'Apple|iMac/PowerBook 1024x768') : (detect_devices::isLaptop() ? 'Generic|Flat Panel 1024x768' : 'Generic|1024x768 @ 70 Hz'); @@ -156,7 +156,7 @@ sub configure_automatic { return $monitor->{HorizSync} && $monitor->{VertRefresh}; } -sub getinfoFromDDC { +sub getinfoFromDDC() { my ($VideoRam, @l) = any::ddcxinfos() or return; my @Modes; @@ -180,7 +180,7 @@ sub getinfoFromDDC { }; } -sub monitors { +sub monitors() { readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB"); } sub readMonitorsDB { -- cgit v1.2.1