# This file is encoded in UTF-2.
die "This file is not encoded in UTF-2.\n" if q{あ} ne "\xe3\x81\x82";
use Char::UTF2;
print "1..3\n";
$| = 1;
my $__FILE__ = __FILE__;
my $tno = 1;
# s///o
for $i (1 .. 3) {
$a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
if ($i == 1) {
$re = 'J';
}
elsif ($i == 2) {
$re = 'K';
}
elsif ($i == 3) {
$re = 'L';
}
if ($a =~ s/$re/あ/o) {
if ($a eq "ABCDEFGHIあKLMNOPQRSTUVWXYZ") {
print qq{ok - $tno \$a =~ s/\$re/あ/o (\$re=$re)(\$a=$a) $^X $__FILE__\n};
}
else {
if ($] =~ /^5\.006/) {
print qq{ok - $tno # SKIP \$a =~ s/\$re/あ/o (\$re=$re)(\$a=$a) $^X $__FILE__\n};
}
else {
print qq{not ok - $tno \$a =~ s/\$re/あ/o (\$re=$re)(\$a=$a) $^X $__FILE__\n};
}
}
}
else {
print qq{not ok - $tno \$a =~ s/\$re/あ/o (\$re=$re)(\$a=$a) $^X $__FILE__\n};
}
$tno++;
}
__END__