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

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

diff --git a/lib/Locale/Language.pm b/lib/Locale/Language.pm
index f47e523..34d2852 100644 (file)
--- a/lib/Locale/Language.pm
+++ b/lib/Locale/Language.pm
@@ -107,6 +107,7 @@ sub all_language_names
     my $code;
     my $language;
 
+    local $_;
 
     while (<DATA>)
     {