perl_checker cleanups

1 files changed, 14 insertions, 14 deletions

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);