# encoding: Cyrillic
# This file is encoded in Cyrillic.
die
"This file is not encoded in Cyrillic.\n"
if
q{ }
ne
"\x82\xa0"
;
use
strict;
use
Cyrillic;
"1..2\n"
;
my
$__FILE__
= __FILE__;
if
(
'ABC'
=~ /(\X)/) {
qq{not ok - 1 'ABC' =~ /(\\X)/ ($1) $^X $__FILE__\n}
;
}
else
{
qq{ok - 1 'ABC' =~ /(\\X)/ $^X $__FILE__\n}
;
}
if
(
'ABCXYZ'
=~ /(\X)/) {
qq{ok - 2 'ABCXYZ' =~ /(\\X)/ ($1) $^X $__FILE__\n}
;
}
else
{
qq{not ok - 2 'ABCXYZ' =~ /(\\X)/ $^X $__FILE__\n}
;
}
__END__