fix off-by-one after switching on the brain again

[deb/packages.git] / lib / Packages / I18N / Languages.pm

diff --git a/lib/Packages/I18N/Languages.pm b/lib/Packages/I18N/Languages.pm
index 404aadd2a22038e2a9fd17a2fc06044371e0ee9d..1ab8f489f6ff3704c788296c84de8fa215144bcb 100644 (file)
--- a/lib/Packages/I18N/Languages.pm
+++ b/lib/Packages/I18N/Languages.pm
@@ -10,42 +10,6 @@ use Exporter;
 our @ISA = qw( Exporter );
 our @EXPORT = qw( langcmp get_transliteration get_selfname );
 
-# language directory name => ISO 639 two-letter code for the language name
-my %langs = (
-            english    => "en",
-            arabic     => "ar",
-            armenian   => "hy",
-            bulgarian  => "bg",
-            catalan    => "ca",
-            chinese    => "zh",
-            croatian   => "hr",
-            czech      => "cs",
-            danish     => "da",
-            dutch      => "nl",
-            german     => "de",
-            greek      => "el",
-            esperanto  => "eo",
-            spanish    => "es",
-            finnish    => "fi",
-            french     => "fr",
-            hungarian  => "hu",
-            indonesian => "id",
-            italian    => "it",
-            japanese   => "ja",
-            korean     => "ko",
-            lithuanian => "lt",
-            norwegian  => "no",
-            persian    => "fa",
-            polish     => "pl",
-            portuguese => "pt",
-            romanian   => "ro",
-            russian    => "ru",
-            swedish    => "sv",
-            slovene    => "sl",
-            slovak     => "sk",
-            turkish    => "tr",
-            );
-
 # language directory name => native name of the language
 # non-ASCII letters must be escaped (using entities)!
 my %selflang = (
@@ -68,6 +32,7 @@ my %selflang = (
                id     => 'Indonesia',
                it     => 'Italiano',
                ja     => '日本語',
+               km     => 'Khmer',
                ko     => '한국어',
                lt     => 'Lietuvių',
                nl     => 'Nederlands',
@@ -104,10 +69,10 @@ my %translit = (
                ko => "Hangul", # Not sure. "Hanguk-Mal" (=Spoken Korean)?
                ru => "Russkij",
                uk => "ukrajins'ka",
-               zh => "Zhongzu",
-               'zh-cn'=> "Zhongzu,简",
-               'zh-hk'=> "Zhongzu,HK",
-               'zh-tw'=> "Zhongzu,繁",
+               zh => "Zhongwen",
+               'zh-cn'=> "Zhongwen,简",
+               'zh-hk'=> "Zhongwen,HK",
+               'zh-tw'=> "Zhongwen,繁",
                );
 
 # second transliteration table, used for languages starting with a latin