diff options
Diffstat (limited to 'lib/Locale/Currency.pm')
| -rw-r--r-- | lib/Locale/Currency.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Locale/Currency.pm b/lib/Locale/Currency.pm index 8a94838886..13cd0482ba 100644 --- a/lib/Locale/Currency.pm +++ b/lib/Locale/Currency.pm @@ -2,7 +2,7 @@ # Locale::Currency - ISO three letter codes for currency identification # (ISO 4217) # -# $Id: Currency.pm,v 2.2 2002/07/10 16:33:27 neilb Exp $ +# $Id: Currency.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $ # package Locale::Currency; @@ -15,7 +15,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(&code2currency ¤cy2code &all_currency_codes &all_currency_names ); @@ -105,11 +105,11 @@ sub all_currency_names # initialisation code - stuff the DATA into the CODES hash #======================================================================= { - my $code; - my $currency; - + my $code; + my $currency; local $_; + while (<DATA>) { next unless /\S/; @@ -161,7 +161,7 @@ byb:Belarussian Ruble byr:Belarussian Ruble bzd:Belize Dollar -cad:Candian Dollar +cad:Canadian Dollar cdf:Franc Congolais chf:Swiss Franc clf:Unidades de Formento |