Commit | Line | Data |
---|---|---|
5ede95a0 BF |
1 | #!./perl |
2 | ||
3 | #This file is intentionally written in UTF-8 | |
4 | ||
5 | BEGIN { | |
6 | chdir 't' if -d 't'; | |
7 | @INC = '../lib'; | |
8 | require './test.pl'; | |
9 | } | |
10 | ||
88e0b65b FC |
11 | plan 1; |
12 | ||
5ede95a0 BF |
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 | } |