diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 08:10:44 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 08:10:44 +0000 |
| commit | 450a69e2f6342406abfde352e25b7abb2c07237d (patch) | |
| tree | 3cd3deaeafaa8a9ce3434e878cc166133afea17a | |
| parent | 584f237415de5c4bfc45c88b04396bd9e78d9073 (diff) | |
| download | drakx-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
| -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); |