The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
12345678910111213 # encoding: Cyrillic# This file is encoded in Cyrillic.die "This file is not encoded in Cyrillic.\n" if q{ } ne "\x82\xa0";my $__FILE__ = __FILE__;use 5.005;use Cyrillic;print "1..1\n";print "ok - 1 $^X $__FILE__\n";__END__
# encoding: Cyrillic
# This file is encoded in Cyrillic.
die
"This file is not encoded in Cyrillic.\n"
if
q{ }
ne
"\x82\xa0"
;
my
$__FILE__
= __FILE__;
use
5.005;
Cyrillic;
print
"1..1\n"
"ok - 1 $^X $__FILE__\n"
__END__