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 (file)
--- 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: $!";