Update releaser managers
[perl.git] / t / op / fresh_perl_utf8.t
1 #!./perl
2
3 #This file is intentionally written in UTF-8
4
5 BEGIN {
6     chdir 't' if -d 't';
7     require './test.pl';
8     set_up_inc('../lib');
9 }
10
11 plan 1;
12
13 use utf8;
14 use strict;
15 use 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 }