* NFKC replaces much more than expected
git-svn-id: https://lab.mitty.jp/svn/lab/trunk@192
7d2118f6-f56c-43e7-95a2-
4bb3031d96e7
use Unicode::Normalize qw(NFC NFKC);
use Unicode::Normalize qw(NFC NFKC);
+binmode STDOUT => 'encoding(utf8)';
+binmode STDERR => 'encoding(utf8)';
my $top = shift @ARGV || exit;
if (! -d $top) { exit; }
my $top = shift @ARGV || exit;
if (! -d $top) { exit; }
+my $utf8 = find_encoding("utf8");
+$top = $utf8->decode($top);
+
checkdir($top);
sub match {
checkdir($top);
sub match {
if ($str ne NFC($str)) {
return 1;
}
if ($str ne NFC($str)) {
return 1;
}
- if ($str ne NFKC($str)) {
- return 1;
- }
my @dirs;
while (my $entry = shift @entries) {
next if ($entry =~ /^\.+$/);
my @dirs;
while (my $entry = shift @entries) {
next if ($entry =~ /^\.+$/);
+ $entry = $utf8->decode($entry);
if (match($entry)) {
print "'$target/$entry' can be composed\n";
next;
if (match($entry)) {
print "'$target/$entry' can be composed\n";
next;