X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FLocale%2FCurrency.pm;h=13cd0482ba701208136e5d1fcd0c7ac3ed5cbf87;hb=f666394a093bd03d30919ca4d18ce92778eb4605;hp=34b85917ddbb2fb58a570baed779b12a25316e0d;hpb=3a6b268dfb0ee30ac0bbaee8f809c2b133695d8f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Locale/Currency.pm b/lib/Locale/Currency.pm
index 34b8591..13cd048 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.2 $ =~ /(\d+)\.(\d+)/);
+$VERSION      = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);
 @ISA          = qw(Exporter);
 @EXPORT       = qw(&code2currency &currency2code
                    &all_currency_codes &all_currency_names );
@@ -105,8 +105,9 @@ sub all_currency_names
 # initialisation code - stuff the DATA into the CODES hash
 #=======================================================================
 {
-    my $code;
-    my $currency;
+    my    $code;
+    my    $currency;
+    local $_;
 
 
     while (<DATA>)
@@ -160,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