From 115b4b1145f86d90f20c0404a54fa907f06c30b0 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Mon, 6 Sep 1999 20:33:18 +0000
Subject: bugfix

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

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

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index fad61f667..8bd75bbf3 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -1,14 +1,21 @@
+
 package keyboard;
 
 use diagnostics;
 use strict;
 
+#-######################################################################################
+#- misc imports
+#-######################################################################################
 use common qw(:common :system :file);
 use run_program;
 use log;
 use c;
 
 
+#-######################################################################################
+#- Globals
+#-######################################################################################
 my $KMAP_MAGIC = 0x8B39C07F;
 
 my %lang2keyboard =
@@ -16,9 +23,6 @@ my %lang2keyboard =
   "en" => "us",
 );
 
-1;
-
-
 # [1] = name for loadkeys, [2] = extension for Xmodmap
 my %keyboards = (
 # armenian xmodmap have to be checked...
@@ -60,6 +64,9 @@ my %keyboards = (
  "yu" => [ __("Yugoslavian (latin layout)"), "yu-latin2", "yu" ],
 );
 
+#-######################################################################################
+#- Functions
+#-######################################################################################
 sub list { map { $_->[0] } values %keyboards }
 sub xmodmaps { map { $_->[2] } values %keyboards }
 sub keyboard2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] }
@@ -142,3 +149,8 @@ sub read($) {
     }
     die "empty keyboard configuration file";
 }
+
+#-######################################################################################
+#- Wonderful perl :(
+#-######################################################################################
+1; # 
-- 
cgit v1.2.1