From 13213676190222defa16e44cf6f4bc5a3a78e01d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 3 Apr 2001 12:10:20 +0000
Subject: (charset): fix for chineese which have charset in the name

---
 perl-install/lang.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 59b481fae..7fae1fb8d 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -517,6 +517,7 @@ sub charset {
     foreach (cat_("$prefix/usr/X11R6/lib/X11/locale/locale.alias")) {
 	/$l:\s+.*\.(\S+)/ and return $1;
     }
+    $l =~ /.*\.(\S+)/ and return $1;
 }
 
 #-######################################################################################
-- 
cgit v1.2.1