diff options
| author | pad <pad@mandriva.com> | 1999-09-06 20:33:18 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-06 20:33:18 +0000 |
| commit | 115b4b1145f86d90f20c0404a54fa907f06c30b0 (patch) | |
| tree | 046cd13affb85df1028bcc687e1c8853fc576cd7 /perl-install/lang.pm | |
| parent | a6096f902a2df839b7e89c084d629840bf52a3a1 (diff) | |
| download | drakx-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.pm | 15 |
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; # |