From: (Ilya Martynov) <perlbug@perl.org>
Date: Sun, 15 Sep 2002 19:06:56 +0000 (+0000)
Subject: [perl #17340] When used/requied Locale::*** modules unexpectedly modify $_
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77b047e701ff9f208080b75b930310501e256781;p=p5sagit%2Fp5-mst-13.2.git

[perl #17340] When used/requied Locale::*** modules unexpectedly modify $_
From: (Ilya Martynov) (via RT) <perlbug@perl.org>
Message-Id: <rt-17340-37749.5.67862754668525@bugs6.perl.org>

p4raw-id: //depot/perl@17908
---

diff --git a/lib/Locale/Country.pm b/lib/Locale/Country.pm
index 07ae833..2563a64 100644
--- 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>)
     {
diff --git a/lib/Locale/Currency.pm b/lib/Locale/Currency.pm
index 34b8591..3424e2c 100644
--- a/lib/Locale/Currency.pm
+++ b/lib/Locale/Currency.pm
@@ -108,6 +108,7 @@ sub all_currency_names
     my $code;
     my $currency;
 
+    local $_;
 
     while (<DATA>)
     {
diff --git a/lib/Locale/Language.pm b/lib/Locale/Language.pm
index f47e523..34d2852 100644
--- 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>)
     {
diff --git a/lib/Locale/Script.pm b/lib/Locale/Script.pm
index d5b6751..c045ffc 100644
--- 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>)
     {