# encoding: Cyrillic
# This file is encoded in Cyrillic.
die
"This file is not encoded in Cyrillic.\n"
if
q{ }
ne
"\x82\xa0"
;
use
Cyrillic;
BEGIN {
"1..1\n"
;
if
($] < 5.020) {
qq{ok - 1 SKIP $^X @{[__FILE__]}
\n};
exit
;
}
}
sub
foo :
prototype
($$$) {
join
(
'.'
,
$_
[0],
$_
[1],
$_
[2]) }
if
(foo(5,20,0) eq
"5.20.0"
) {
qq{ok - 1 sub foo : prototype(\$\$\$) $^X @{[__FILE__]}
\n};
}
else
{
qq{not ok - 1 sub foo : prototype(\$\$\$) $^X @{[__FILE__]}
\n};
}
__END__