From 25f65beed0677fa247c513705dbf538225f979c4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Sep 1999 17:31:42 +0000
Subject: no_comment

---
 perl-install/keyboard.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/keyboard.pm')

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 5f2ee9b14..77322e803 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -38,7 +38,7 @@ my %keyboards = (
  "fr" => [ __("French"),         "fr-latin1",   "fr" ],
 #- georgian keyboards have to be written...
 #-"ge_ru"=>[__("Georgian (\"Russian\" layout)","ge_ru-georgian_academy","ge_ru"],
-#-"ge_la"=>[__("Georgian ("\Latin\" layout)","ge_la-georgian_academy","ge_ru"], 
+#-"ge_la"=>[__("Georgian ("\Latin\" layout)","ge_la-georgian_academy","ge_ru"],
  "gr" => [ __("Greek"),          "gr-8859_7",   "gr" ],
  "hu" => [ __("Hungarian"),      "hu-latin2",   "hu" ],
  "il" => [ __("Israelian"),      "il-8859_8",   "il" ],
@@ -51,7 +51,7 @@ my %keyboards = (
  "pt" => [ __("Portuguese"),     "pt-latin1",   "pt" ],
  "qc" => [ __("Canadian (Quebec)"), "qc-latin1","qc" ],
  "ru" => [ __("Russian"),        "ru-koi8",     "ru" ],
- "se" => [ __("Swedish"),        "se-latin1",   "se" ],  
+ "se" => [ __("Swedish"),        "se-latin1",   "se" ],
  "sf" => [ __("Swiss (french layout)"), "sf-latin1", "sf" ],
  "sg" => [ __("Swiss (german layout)"), "sg-latin1", "sg" ],
  "si" => [ __("Slovenian"),      "si-latin1",   "si" ],
@@ -86,7 +86,7 @@ sub kmap($) {
 
 sub lang2keyboard($) {
     local ($_) = @_;
-    $keyboards{$_} && $_ || $lang2keyboard{$_} || substr($_, 0, 2);    
+    $keyboards{$_} && $_ || $lang2keyboard{$_} || substr($_, 0, 2);
 }
 
 sub load($) {
-- 
cgit v1.2.1