1#!./perl 2 3#This file is intentionally written in UTF-8 4 5BEGIN { 6 chdir 't' if -d 't'; 7 @INC = '../lib'; 8 require './test.pl'; 9} 10 11plan 1; 12 13use utf8; 14use strict; 15use open qw( :utf8 :std ); 16 17{ 18 local $@; 19 eval 'sub testme { my $ᨕ = "test"; { local $ᨕ = "new test"; print $ᨕ } }'; 20 like( $@, qr/Can't localize lexical variable \$ᨕ at /u, q!"Can't localize lexical" error is in UTF-8! ); 21} 22