Changeset 7ec37bd in lab.git for misc/findcombinable.pl

Timestamp:

Jan 26, 2013 12:16:00 AM (12 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

bf1a1ea

Parents:

dfae53c

Message:

• output composed string

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@196 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• misc/findcombinable.pl (modified) (2 diffs)

misc/findcombinable.pl

@@ -20 +20 @@
     $str = $utf8->decode($str);
     if ($str ne NFC($str)) {
-        return 1;
+        return $utf8->encode(NFC($str));
     }
     
@@ -36 +36 @@
     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;
         }