X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FLocale%2FLanguage.pm;h=e8454c39b4a5e7254d7f751602ed81181d5a8efc;hb=f666394a093bd03d30919ca4d18ce92778eb4605;hp=34d2852018e53e7e523f7af4bff9898fd82ffdab;hpb=77b047e701ff9f208080b75b930310501e256781;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/Locale/Language.pm b/lib/Locale/Language.pm index 34d2852..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.2 2002/07/10 16:33:27 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.2 $ =~ /(\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,11 +104,11 @@ sub all_language_names # initialisation code - stuff the DATA into the CODES hash #======================================================================= { - my $code; - my $language; - + my $code; + my $language; local $_; + while () { next unless /\S/; @@ -232,7 +232,7 @@ mt:Maltese my:Burmese na:Nauru -nb:Norwegian Bokmål +nb:Norwegian Bokmal nd:Ndebele, North ne:Nepali ng:Ndonga @@ -301,7 +301,7 @@ ur:Urdu uz:Uzbek vi:Vietnamese -vo:Volapük +vo:Volapuk wo:Wolof