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/lang.pm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 1fd767a02..d7a5c1eb8 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -3,10 +3,16 @@
 use diagnostics;
 use strict;
 
+#-######################################################################################
+#- misc imports
+#-######################################################################################
 use common qw(:file);
 use commands;
 use log;
 
+#-######################################################################################
+#- Globals
+#-######################################################################################
 # key (to be used in $LC_ALL), [0] = english name, [1] = charset encoding,
 # [2] = value for $LANG, [3] = value for LANGUAGE (a list of possible
 # languages, carefully choosen)
@@ -88,7 +94,9 @@ my %charsets = (
 	"*-helvetica-medium-r-normal--14-*-*-*-*-viscii1.1-1" ],
 );
 
-1;
+#-######################################################################################
+#- Functions
+#-######################################################################################
 
 sub list { map { $_->[0] } values %languages }
 sub lang2text { $languages{$_[0]} && $languages{$_[0]}[0] }
@@ -164,3 +172,8 @@ sub load_font {
     log::l("fontset: " . $fontSet);
 #    Gtk::Gdk::Font::fontset_load("*",$fontSet);
 }
+
+#-######################################################################################
+#- Wonderful perl :(
+#-######################################################################################
+1; # 
-- 
cgit v1.2.1