X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FLocale%2FLanguage.pm;h=e8454c39b4a5e7254d7f751602ed81181d5a8efc;hb=f666394a093bd03d30919ca4d18ce92778eb4605;hp=a00559f94b29afb509cb747391cd28734a5a3bb9;hpb=3dca81fbfabd59d447e62826c453572aa4a961d2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Locale/Language.pm b/lib/Locale/Language.pm
index a00559f..e8454c3 100644
--- a/lib/Locale/Language.pm
+++ b/lib/Locale/Language.pm
@@ -1,7 +1,7 @@
 #
 # Locale::Language - ISO two letter codes for language identification (ISO 639)
 #
-# $Id: Language.pm,v 2.1 2002/02/06 04:07:10 neilb Exp $
+# $Id: Language.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $
 #
 
 package Locale::Language;
@@ -14,7 +14,7 @@ require Exporter;
 #	Public Global Variables
 #-----------------------------------------------------------------------
 use vars qw($VERSION @ISA @EXPORT);
-$VERSION      = sprintf("%d.%02d", q$Revision: 2.1 $ =~ /(\d+)\.(\d+)/);
+$VERSION      = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);
 @ISA          = qw(Exporter);
 @EXPORT       = qw(&code2language &language2code
                    &all_language_codes &all_language_names );
@@ -104,10 +104,10 @@ sub all_language_names
 # initialisation code - stuff the DATA into the CODES hash
 #=======================================================================
 {
-    my $code;
-    my $language;
+    my    $code;
+    my    $language;
+    local $_;
 
-    use bytes;
 
     while (<DATA>)
     {
@@ -117,6 +117,8 @@ sub all_language_names
         $CODES{$code} = $language;
         $LANGUAGES{"\L$language"} = $code;
     }
+
+    close(DATA);
 }
 
 1;
@@ -230,7 +232,7 @@ mt:Maltese
 my:Burmese
 
 na:Nauru
-nb:Norwegian Bokmål
+nb:Norwegian Bokmal
 nd:Ndebele, North
 ne:Nepali
 ng:Ndonga
@@ -299,7 +301,7 @@ ur:Urdu
 uz:Uzbek
 
 vi:Vietnamese
-vo:Volapük
+vo:Volapuk
 
 wo:Wolof