From acdc26142db3112becc42fe2e5c67147ed8a9fa7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 17 Oct 2002 18:34:49 +0000 Subject: make new perl_checker happy: replacing PKG::f by PKG::f() --- perl-install/Xconfig/monitor.pm | 2 +- perl-install/Xconfig/resolution_and_depth.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/Xconfig') diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index 9b3eea507..6efc9b600 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -11,7 +11,7 @@ use log; sub good_default_monitor { arch() =~ /ppc/ ? - (detect_devices::get_mac_model =~ /^iBook/ ? 'Apple|iBook 800x600' : 'Apple|iMac/PowerBook 1024x768') : + (detect_devices::get_mac_model() =~ /^iBook/ ? 'Apple|iBook 800x600' : 'Apple|iMac/PowerBook 1024x768') : (detect_devices::isLaptop() ? 'Generic|Flat Panel 1024x768' : 'Generic|1024x768 @ 70 Hz'); } diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm index 376e60aa1..f946d19dd 100644 --- a/perl-install/Xconfig/resolution_and_depth.pm +++ b/perl-install/Xconfig/resolution_and_depth.pm @@ -48,7 +48,7 @@ sub size2default_resolution { my ($size) = @_; #- size in inch if (arch() =~ /ppc/) { - return "1024x768" if detect_devices::get_mac_model =~ /^PowerBook|^iMac/; + return "1024x768" if detect_devices::get_mac_model() =~ /^PowerBook|^iMac/; } my %monitorSize2resolution = ( -- cgit v1.2.1