# encoding: Cyrillic
# This file is encoded in Cyrillic.
die
"This file is not encoded in Cyrillic.\n"
if
q{ }
ne
"\x82\xa0"
;
use
Cyrillic;
"1..1\n"
;
if
($] < 5.022) {
for
my
$tno
(1..1) {
qq{ok - $tno SKIP $^X @{[__FILE__]}
\n};
}
exit
;
}
local
$_
=
eval
q{ '' =~ /(re|regexp)/n }
;
if
(not $@) {
qq{ok - 1 /(re|regexp)/n $^X @{[__FILE__]}
\n};
}
else
{
qq{not ok - 1 /(re|regexp)/n $^X @{[__FILE__]}
\n};
}
__END__