diff options
| -rw-r--r-- | perl-install/lang.pm | 13 |
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); |