From 8f6960eafa2ab3a951712db3243fe83d778df22d Mon Sep 17 00:00:00 2001 From: Audrey Tang Date: Sat, 20 Mar 2004 02:27:10 +0800 Subject: [PATCH] open.pm: allow upper-cased EUC Message-Id: <20040319102710.GA91216@aut.dyndns.org> p4raw-id: //depot/perl@22538 --- lib/open.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/open.pm b/lib/open.pm index fa2a518..32c5118 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -3,7 +3,7 @@ use warnings; use Carp; $open::hint_bits = 0x20000; # HINT_LOCALIZE_HH -our $VERSION = '1.02'; +our $VERSION = '1.03'; my $locale_encoding; @@ -41,7 +41,7 @@ sub _get_locale_encoding { # would be excellent!) --jhi } if (defined $locale_encoding && - $locale_encoding eq 'euc' && + lc($locale_encoding) eq 'euc' && defined $country_language) { if ($country_language =~ /^ja_JP|japan(?:ese)?$/i) { $locale_encoding = 'euc-jp'; @@ -51,9 +51,9 @@ sub _get_locale_encoding { $locale_encoding = 'euc-cn'; } elsif ($country_language =~ /^zh_TW|taiwan(?:ese)?$/i) { $locale_encoding = 'euc-tw'; + } else { + croak "Locale encoding 'euc' too ambiguous"; } - croak "Locale encoding 'euc' too ambiguous" - if $locale_encoding eq 'euc'; } } } -- 2.7.4