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);