# This file is encoded in old UTF-8.
die "This file is not encoded in old UTF-8.\n" if q{あ} ne "\xe3\x81\x82";
use Char::OldUTF8;
print "1..5\n";
my $__FILE__ = __FILE__;
$a = "ソ";
if ($a =~ s/^\Q$a\E$//) {
print qq#ok - 1 \$a =~ s/^\\Q\$a\\E\$// $^X $__FILE__\n#;
}
else {
print qq#not ok - 1 \$a =~ s/^\\Q\$a\\E\$// $^X $__FILE__\n#;
}
$a[0] = "ソ";
if ($a[0] =~ s/^\Q$a[0]\E$//) {
print qq#ok - 2 \$a[0] =~ s/^\\Q\$a[0]\\E\$// $^X $__FILE__\n#;
}
else {
print qq#not ok - 2 \$a[0] =~ s/^\\Q\$a[0]\\E\$// $^X $__FILE__\n#;
}
$b = 1;
$a[1] = '';
if ($a[$b] =~ s/^\Q$a[$b]\E$//) {
print qq#ok - 3 \$a[\$b] =~ s/^\\Q\$a[\$b]\\E\$// $^X $__FILE__\n#;
}
else {
print qq#not ok - 3 \$a[\$b] =~ s/^\\Q\$a[\$b]\\E\$// $^X $__FILE__\n#;
}
$a{"ソ"} = "表";
if ($a{'ソ'} =~ s/^\Q$a{'ソ'}\E$//) {
print qq#ok - 4 \$a{'ソ'} =~ s/^\\Q\$a{'ソ'}\\E\$// $^X $__FILE__\n#;
}
else {
print qq#not ok - 4 \$a{'ソ'} =~ s/^\\Q\$a{'ソ'}\\E\$// $^X $__FILE__\n#;
}
$b = "ソ";
if ($a{$b} =~ s/^\Q$a{$b}\E$//) {
print qq#ok - 5 \$a{\$b} =~ s/^\\Q\$a{\$b}\\E\$// $^X $__FILE__\n#;
}
else {
print qq#not ok - 5 \$a{\$b} =~ s/^\\Q\$a{\$b}\\E\$// $^X $__FILE__\n#;
}
__END__