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

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

diff --git a/lib/Locale/Script.pm b/lib/Locale/Script.pm
index d5b6751..c045ffc 100644 (file)
--- a/lib/Locale/Script.pm
+++ b/lib/Locale/Script.pm
@@ -160,6 +160,7 @@ sub all_script_names
     my ($alpha2, $alpha3, $numeric);
     my $script;
 
+    local $_;
 
     while (<DATA>)
     {