# This file is encoded in Char::Big5Plus.
die "This file is not encoded in Char::Big5Plus.\n" if q{ } ne "\x82\xa0";
use Char::Big5Plus;
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__