summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
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);