This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make pad names always UTF8
[perl5.git] / ext / XS-APItest / t / labelconst_utf8.aux
1 use utf8;
2 use open qw( :utf8 :std );
3
4 use XS::APItest qw(labelconst);
5 my $z = "";
6 $z .= labelconst FǑǑ:;
7 $z .= labelconst BÀR:
8         ;
9 $z .= labelconst ᛒÀZ
10         :;
11 $z .= labelconst
12         QÙÙX:;
13 $z;