From dad25588ed26afe49277032b8b1b24b063e34efa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 22 Apr 2003 21:59:30 +0000 Subject: perl_checker compliance for optional method arguments --- perl-install/Xconfig/xfreeX.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'perl-install/Xconfig/xfreeX.pm') diff --git a/perl-install/Xconfig/xfreeX.pm b/perl-install/Xconfig/xfreeX.pm index e8d5f33f4..7f79f19f9 100644 --- a/perl-install/Xconfig/xfreeX.pm +++ b/perl-install/Xconfig/xfreeX.pm @@ -15,14 +15,14 @@ sub empty_config { } sub read { - my ($class, $file) = @_; - $file ||= ($::prefix || '') . (bless {}, $class)->config_file; + my ($class, $o_file) = @_; + my $file = $o_file || ($::prefix || '') . (bless {}, $class)->config_file; my $raw_X = Xconfig::parse::read_XF86Config($file); bless $raw_X, $class; } sub write { - my ($raw_X, $file) = @_; - $file ||= ($::prefix || '') . $raw_X->config_file; + my ($raw_X, $o_file) = @_; + my $file = $o_file || ($::prefix || '') . $raw_X->config_file; rename $file, "$file.old"; Xconfig::parse::write_XF86Config($raw_X, $file); } @@ -167,8 +167,8 @@ sub set_load_module { } sub get_resolution { - my ($raw_X, $Screen) = @_; - $Screen ||= $raw_X->get_default_screen or return {}; + my ($raw_X, $o_Screen) = @_; + my $Screen = $o_Screen || $raw_X->get_default_screen or return {}; my $depth = val($Screen->{DefaultColorDepth}); my $Display = find { !$depth || val($_->{l}{Depth}) eq $depth } @{$Screen->{Display} || []} or return {}; @@ -177,9 +177,9 @@ sub get_resolution { } sub set_resolution { - my ($raw_X, $resolution, $Screen_) = @_; + my ($raw_X, $resolution, $o_Screen_) = @_; - foreach my $Screen ($Screen_ ? $Screen_ : $raw_X->get_screens) { + foreach my $Screen ($o_Screen_ ? $o_Screen_ : $raw_X->get_screens) { $Screen ||= $raw_X->get_default_screen or internal_error('no screen'); $Screen->{DefaultColorDepth} = { val => $resolution->{Depth} }; -- cgit v1.2.1