From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 3 May 2004 13:28:24 +0000 (+0000)
Subject: ensure that utf8 Perl code magically called from a regex localizes $.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21235083834316f367c5d1108a28d49dda550bb7;p=p5sagit%2Fp5-mst-13.2.git

ensure that utf8 Perl code magically called from a regex localizes $.

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

diff --git a/lib/utf8_pva.pl b/lib/utf8_pva.pl
index 3cd9efd..0f7d41c 100644
--- a/lib/utf8_pva.pl
+++ b/lib/utf8_pva.pl
@@ -11,7 +11,8 @@ for (@INC) {
 
 use Carp 'confess';
 
-local $_;
+local *_;
+local $.; # localizes Pl_last_in_gv
 
     open PA, "< $dir/unicore/PropertyAliases.txt"
 	or confess "Can't open PropertyAliases.txt: $!";