diff options
Diffstat (limited to 'lib/Locale')
| -rw-r--r-- | lib/Locale/Codes/t/languages.t | 2 | ||||
| -rw-r--r-- | lib/Locale/Language.pm | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/Locale/Codes/t/languages.t b/lib/Locale/Codes/t/languages.t index 9facd3509d..c643f3a307 100644 --- a/lib/Locale/Codes/t/languages.t +++ b/lib/Locale/Codes/t/languages.t @@ -10,7 +10,7 @@ BEGIN { use Locale::Language; -no utf8; # so that the naked 8-bit characters won't gripe under use utf8 +no utf8; # we contain Latin-1 #----------------------------------------------------------------------- # This is an array of tests. Each test is eval'd as an expression. diff --git a/lib/Locale/Language.pm b/lib/Locale/Language.pm index 391cffab78..9e0cf19541 100644 --- a/lib/Locale/Language.pm +++ b/lib/Locale/Language.pm @@ -247,13 +247,15 @@ modify it under the same terms as Perl itself. # initialisation code - stuff the DATA into the CODES hash #======================================================================= { + no utf8; # __DATA__ contains Latin-1 + my $code; my $language; while (<DATA>) { - next unless /\S/; + next unless /\S/; chop; ($code, $language) = split(/:/, $_, 2); $CODES{$code} = $language; |