The first big import towards 5.8.1, @18078. Please do NOT

[perl5.git] / lib / Locale / Currency.pm

diff --git a/lib/Locale/Currency.pm b/lib/Locale/Currency.pm
index 34b8591..3424e2c 100644 (file)
--- 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>)
     {