diff options
Diffstat (limited to 'lib/Locale/Language.pm')
| -rw-r--r-- | lib/Locale/Language.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Locale/Language.pm b/lib/Locale/Language.pm index 838e7e14b0..e8454c39b4 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.21 $ =~ /(\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 (<DATA>) { next unless /\S/; |