$str = $utf8->decode($str);
if ($str ne NFC($str)) {
- return 1;
+ return $utf8->encode(NFC($str));
}
return '';
my @dirs;
while (my $entry = shift @entries) {
- if (match($entry)) {
- print "'$target/$entry' can be composed\n";
+ if (my $composed = match($entry)) {
+ print "'$target/$entry' can be composed to '$composed'\n";
next;
}
if (-d "$target/$entry") {