summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-06 20:33:18 +0000
committerpad <pad@mandriva.com>1999-09-06 20:33:18 +0000
commit115b4b1145f86d90f20c0404a54fa907f06c30b0 (patch)
tree046cd13affb85df1028bcc687e1c8853fc576cd7 /perl-install/lang.pm
parenta6096f902a2df839b7e89c084d629840bf52a3a1 (diff)
downloaddrakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar
drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.gz
drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.bz2
drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.xz
drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.zip
bugfix
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm15
1 files changed, 14 insertions, 1 deletions
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; #