diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-22 21:59:30 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-22 21:59:30 +0000 |
| commit | dad25588ed26afe49277032b8b1b24b063e34efa (patch) | |
| tree | ed2e1f85e3e34ab626550ef27e3a858fa57d308a /perl-install/Xconfig/xfree.pm | |
| parent | e70327417f8ce3bd2a03c7da1fd46ea2a8e8e4b0 (diff) | |
| download | drakx-dad25588ed26afe49277032b8b1b24b063e34efa.tar drakx-dad25588ed26afe49277032b8b1b24b063e34efa.tar.gz drakx-dad25588ed26afe49277032b8b1b24b063e34efa.tar.bz2 drakx-dad25588ed26afe49277032b8b1b24b063e34efa.tar.xz drakx-dad25588ed26afe49277032b8b1b24b063e34efa.zip | |
perl_checker compliance for optional method arguments
Diffstat (limited to 'perl-install/Xconfig/xfree.pm')
| -rw-r--r-- | perl-install/Xconfig/xfree.pm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm index 9a44749ae..8df42bd8a 100644 --- a/perl-install/Xconfig/xfree.pm +++ b/perl-install/Xconfig/xfree.pm @@ -10,17 +10,15 @@ use Xconfig::xfree4; use log; -#- files are optional sub read { - my ($class, $xfree3_file, $xfree4_file) = @_; - bless { xfree3 => eval { Xconfig::xfree3->read($xfree3_file) } || [], - xfree4 => eval { Xconfig::xfree4->read($xfree4_file) } || [] }, $class; + my ($class, $o_xfree3_file, $o_xfree4_file) = @_; + bless { xfree3 => eval { Xconfig::xfree3->read($o_xfree3_file) } || [], + xfree4 => eval { Xconfig::xfree4->read($o_xfree4_file) } || [] }, $class; } -#- files are optional sub write { - my ($both, $xfree3_file, $xfree4_file) = @_; - $both->{xfree3} ? $both->{xfree3}->write($xfree3_file) : unlink($xfree3_file); - $both->{xfree4} ? $both->{xfree4}->write($xfree4_file) : unlink($xfree4_file); + my ($both, $o_xfree3_file, $o_xfree4_file) = @_; + $both->{xfree3} ? $both->{xfree3}->write($o_xfree3_file) : unlink($o_xfree3_file); + $both->{xfree4} ? $both->{xfree4}->write($o_xfree4_file) : unlink($o_xfree4_file); } sub empty_config { |