Be compatible also with non-UTF-8 locales.

p4raw-id: //depot/perl@15566

diff --git a/lib/Locale/Language.pm b/lib/Locale/Language.pm
index df5f623..a00559f 100644 (file)
--- a/lib/Locale/Language.pm
+++ b/lib/Locale/Language.pm
@@ -107,6 +107,8 @@ sub all_language_names
     my $code;
     my $language;
 
+    use bytes;
+
     while (<DATA>)
     {
         next unless /\S/;
@@ -228,7 +230,7 @@ mt:Maltese
 my:Burmese
 
 na:Nauru
-nb:Norwegian Bokmål
+nb:Norwegian Bokmål
 nd:Ndebele, North
 ne:Nepali
 ng:Ndonga
@@ -297,7 +299,7 @@ ur:Urdu
 uz:Uzbek
 
 vi:Vietnamese
-vo:Volapük
+vo:Volapük
 
 wo:Wolof
 

diff --git a/lib/Locale/Language.pod b/lib/Locale/Language.pod
index bd26d05..07ce4ba 100644 (file)
--- a/lib/Locale/Language.pod
+++ b/lib/Locale/Language.pod
@@ -141,12 +141,6 @@ Home page for ISO 639-2.
 =back
 
 
-=head1 ENCODING
-
-The language names are encoded in UTF-8.  (Currently this matters
-only for two languages: Norwegian Bokm\81Ã\81¥l, and Volap\81Ã\81¼k.)
-
-
 =head1 AUTHOR
 
 Neil Bowers E<lt>neil@bowers.comE<gt>