diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-24 06:29:49 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-24 06:29:49 +0000 |
commit | 84071688ab52d6af5cff69229d146342ae444941 (patch) | |
tree | 6a9e77d98d6189a0bc8112ed78f13cb57f795062 /lib/Xconfig/various.pm | |
parent | 4b002564716195df76fb0de1fc264c4765d7866e (diff) | |
download | drakx-kbd-mouse-x11-84071688ab52d6af5cff69229d146342ae444941.tar drakx-kbd-mouse-x11-84071688ab52d6af5cff69229d146342ae444941.tar.gz drakx-kbd-mouse-x11-84071688ab52d6af5cff69229d146342ae444941.tar.bz2 drakx-kbd-mouse-x11-84071688ab52d6af5cff69229d146342ae444941.tar.xz drakx-kbd-mouse-x11-84071688ab52d6af5cff69229d146342ae444941.zip |
perl_checker cleanups
Diffstat (limited to 'lib/Xconfig/various.pm')
-rw-r--r-- | lib/Xconfig/various.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/Xconfig/various.pm b/lib/Xconfig/various.pm index 88df792..8d25375 100644 --- a/lib/Xconfig/various.pm +++ b/lib/Xconfig/various.pm @@ -114,7 +114,7 @@ sub config { my ($raw_X, $card, $various) = @_; if (exists $various->{DontZap}) { - configure_ServerFlag($raw_X, 'DontZap', $various->{DontZap} eq 1 ? 'True' : 'False'); + configure_ServerFlag($raw_X, 'DontZap', $various->{DontZap} == 1 ? 'True' : 'False'); } if ($various->{Composite}) { $raw_X->remove_extension('Composite'); @@ -339,15 +339,15 @@ sub configure_FB_TVOUT { } sub configure_ServerFlag { - my ($raw_X, $option, $value) = @_; + my ($raw_X, $option, $o_value) = @_; my $ServerFlags = $raw_X->get_Section('ServerFlags'); - my $option_ref = $ServerFlags->{$option}->[0]; - if ($value) { - $option_ref->{val} = $value; + my $option_ref = $ServerFlags->{$option}[0]; + if ($o_value) { + $option_ref->{val} = $o_value; $option_ref->{commented} = 0; $option_ref->{Option} = 1; } - return undef if $option_ref->{commented} eq 1; + return undef if $option_ref->{commented} == 1; $option_ref->{val}; } @@ -399,7 +399,7 @@ sub setupFB { }, $bios_vga_mode); } -sub setup_kms { +sub setup_kms() { change_bootloader_config( sub { my ($bootloader) = @_; |