[ANNOUNCE] Math::BigInt v1.69

[p5sagit/p5-mst-13.2.git] / lib / Locale / Country.pm

diff --git a/lib/Locale/Country.pm b/lib/Locale/Country.pm
index 07ae833..eab7249 100644 (file)
--- a/lib/Locale/Country.pm
+++ b/lib/Locale/Country.pm
@@ -17,7 +17,7 @@ use Locale::Constants;
 #      Public Global Variables
 #-----------------------------------------------------------------------
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-$VERSION   = sprintf("%d.%02d", q$Revision: 2.6 $ =~ /(\d+)\.(\d+)/);
+$VERSION   = sprintf("%d.%02d", q$Revision: 2.61 $ =~ /(\d+)\.(\d+)/);
 @ISA       = qw(Exporter);
 @EXPORT    = qw(code2country country2code
                 all_country_codes all_country_names
@@ -267,6 +267,7 @@ sub _code2codeset
     my ($alpha2, $alpha3, $numeric);
     my ($country, @countries);
 
+    local $_;
 
     while (<DATA>)
     {