From 450a69e2f6342406abfde352e25b7abb2c07237d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 3 Jun 2005 08:10:44 +0000 Subject: during_install__l2charset() was used by share/gen_locales.sh which is now dropped --- perl-install/lang.pm | 13 ------------- 1 file changed, 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); -- cgit v1.2.1