This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ensure that utf8 Perl code magically called from a regex localizes $.
authorDave Mitchell <davem@fdisolutions.com>
Mon, 3 May 2004 13:28:24 +0000 (13:28 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Mon, 3 May 2004 13:28:24 +0000 (13:28 +0000)
p4raw-id: //depot/perl@22771

lib/utf8_pva.pl

index 3cd9efd..0f7d41c 100644 (file)
@@ -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: $!";