[perl #17340] When used/requied Locale::*** modules unexpectedly modify $_

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

diff --git a/lib/Locale/Country.pm b/lib/Locale/Country.pm
index 07ae833..2563a64 100644 (file)
--- a/lib/Locale/Country.pm
+++ b/lib/Locale/Country.pm
@@ -267,6 +267,7 @@ sub _code2codeset
     my ($alpha2, $alpha3, $numeric);
     my ($country, @countries);
 
+    local $_;
 
     while (<DATA>)
     {