summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 08:10:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 08:10:44 +0000
commit450a69e2f6342406abfde352e25b7abb2c07237d (patch)
tree3cd3deaeafaa8a9ce3434e878cc166133afea17a /perl-install/lang.pm
parent584f237415de5c4bfc45c88b04396bd9e78d9073 (diff)
downloaddrakx-450a69e2f6342406abfde352e25b7abb2c07237d.tar
drakx-450a69e2f6342406abfde352e25b7abb2c07237d.tar.gz
drakx-450a69e2f6342406abfde352e25b7abb2c07237d.tar.bz2
drakx-450a69e2f6342406abfde352e25b7abb2c07237d.tar.xz
drakx-450a69e2f6342406abfde352e25b7abb2c07237d.zip
during_install__l2charset() was used by share/gen_locales.sh which is now dropped
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm13
1 files changed, 0 insertions, 13 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index f010bc2e5..0091efc82 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1304,19 +1304,6 @@ sub fs_options {
}
}
-sub during_install__l2charset {
- my ($lang) = @_;
- return if member($lang, @during_install__lang_having_their_LC_CTYPE);
-
- my ($c) = l2charset($lang) or die "bad lang $lang\n";
- $c = 'UTF-8' if member($c, 'tis620', 'C', 'unicode');
- $c = 'UTF-8' if $c =~ /koi8-/;
- $c = 'UTF-8' if $c =~ /iso-8859/;
- $c = 'UTF-8' if $c =~ /cp125/;
- $c = 'UTF-8' if $c =~ /utf_/;
- uc($c);
-}
-
sub check() {
$^W = 0;
my ($warnings, $errors) = (0, 0);