summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-11-08 16:00:24 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-11-08 16:38:05 +0100
commit7cada561dea3aedce37c54cbd32ac0de121b79fe (patch)
tree03e84858bcf2723a5a0f6fec4e04ba7ae1446c64
parent7bffa4cad795610ccfb97496833b2c1124070834 (diff)
downloaddrakx-kbd-mouse-x11-7cada561dea3aedce37c54cbd32ac0de121b79fe.tar
drakx-kbd-mouse-x11-7cada561dea3aedce37c54cbd32ac0de121b79fe.tar.gz
drakx-kbd-mouse-x11-7cada561dea3aedce37c54cbd32ac0de121b79fe.tar.bz2
drakx-kbd-mouse-x11-7cada561dea3aedce37c54cbd32ac0de121b79fe.tar.xz
drakx-kbd-mouse-x11-7cada561dea3aedce37c54cbd32ac0de121b79fe.zip
perl_checker cleanups
-rw-r--r--lib/Xconfig/monitor.pm2
-rw-r--r--lib/keyboard.pm28
2 files changed, 15 insertions, 15 deletions
diff --git a/lib/Xconfig/monitor.pm b/lib/Xconfig/monitor.pm
index 838d14f..d57e70b 100644
--- a/lib/Xconfig/monitor.pm
+++ b/lib/Xconfig/monitor.pm
@@ -79,7 +79,7 @@ sub configure_auto_install {
}
sub choose {
- my ($in, $raw_X, $monitor, $head_nb, $b_auto) = @_;
+ my ($in, $_raw_X, $monitor, $head_nb, $b_auto) = @_;
my $ok = is_valid($monitor);
if ($b_auto && $ok) {
diff --git a/lib/keyboard.pm b/lib/keyboard.pm
index 5065611..2fe829d 100644
--- a/lib/keyboard.pm
+++ b/lib/keyboard.pm
@@ -597,28 +597,28 @@ sub write {
setVarsInSh("$::prefix/etc/sysconfig/keyboard", $keyboard);
- if ($keyboard->{'KEYTABLE'}) {
- my $h2 = { 'KEYMAP' => $keyboard->{'KEYTABLE'} };
+ if ($keyboard->{KEYTABLE}) {
+ my $h2 = { 'KEYMAP' => $keyboard->{KEYTABLE} };
addVarsInShMode("$::prefix/etc/vconsole.conf", 0644, $h2);
}
my $xorgconf = "# Read and parsed by systemd-localed. It's probably wise not to edit this file\n" .
"# manually too freely.\n" .
- "Section \"InputClass\"\n" .
- " Identifier \"system-keyboard\"\n" .
- " MatchIsKeyboard \"on\"\n";
- my $isus = $keyboard->{'XkbLayout'} && $keyboard->{'XkbLayout'} eq "us";
- if ($keyboard->{'XkbLayout'} && !$isus) {
- $xorgconf .= " Option \"XkbLayout\" \"" . $keyboard->{'XkbLayout'} . "\"\n";
+ q(Section "InputClass"\n) .
+ qq( Identifier "system-keyboard"\n) .
+ q( MatchIsKeyboard "on"\n);
+ my $isus = $keyboard->{XkbLayout} && $keyboard->{XkbLayout} eq "us";
+ if ($keyboard->{XkbLayout} && !$isus) {
+ $xorgconf .= " Option \"XkbLayout\" \"" . $keyboard->{XkbLayout} . "\"\n";
}
- if ($keyboard->{'XkbModel'} && (!$isus || $keyboard->{'XkbModel'} ne "pc105")) {
- $xorgconf .= " Option \"XkbModel\" \"" . $keyboard->{'XkbModel'} . "\"\n";
+ if ($keyboard->{XkbModel} && (!$isus || $keyboard->{XkbModel} ne "pc105")) {
+ $xorgconf .= " Option \"XkbModel\" \"" . $keyboard->{XkbModel} . "\"\n";
}
- if ($keyboard->{'XkbVariant'}) {
- $xorgconf .= " Option \"XkbVariant\" \"" . $keyboard->{'XkbVariant'} . "\"\n";
+ if ($keyboard->{XkbVariant}) {
+ $xorgconf .= " Option \"XkbVariant\" \"" . $keyboard->{XkbVariant} . "\"\n";
}
- if ($keyboard->{'XkbOptions'}) {
- $xorgconf .= " Option \"XkbOptions\" \"" . $keyboard->{'XkbOptions'} . "\"\n";
+ if ($keyboard->{XkbOptions}) {
+ $xorgconf .= " Option \"XkbOptions\" \"" . $keyboard->{XkbOptions} . "\"\n";
}
$xorgconf .= "EndSection\n";
output_p("$::prefix/etc/X11/xorg.conf.d/00-keyboard.conf", $xorgconf);