diff options
| author | (Ilya Martynov) <perlbug@perl.org> | 2002-09-15 19:06:56 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-09-16 21:34:55 +0000 |
| commit | 77b047e701ff9f208080b75b930310501e256781 (patch) | |
| tree | f086f2701e0443ebe0f7ada3d17e3523f1a65d40 /lib/Locale | |
| parent | f42e9f9012367e58b1bc8229a10035f5c1ac8612 (diff) | |
| download | perl-77b047e701ff9f208080b75b930310501e256781.tar.gz | |
[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
Diffstat (limited to 'lib/Locale')
| -rw-r--r-- | lib/Locale/Country.pm | 1 | ||||
| -rw-r--r-- | lib/Locale/Currency.pm | 1 | ||||
| -rw-r--r-- | lib/Locale/Language.pm | 1 | ||||
| -rw-r--r-- | lib/Locale/Script.pm | 1 |
4 files changed, 4 insertions, 0 deletions
diff --git a/lib/Locale/Country.pm b/lib/Locale/Country.pm index 07ae83325c..2563a6466a 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 34b85917dd..3424e2c5a6 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 f47e523fc2..34d2852018 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 d5b6751a1a..c045ffc299 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>) { |