From 7ec37bd7868a851b7440484711f08ee44c623a5b Mon Sep 17 00:00:00 2001
From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Fri, 25 Jan 2013 15:16:00 +0000
Subject: [PATCH]  * output composed string

git-svn-id: https://lab.mitty.jp/svn/lab/trunk@196 7d2118f6-f56c-43e7-95a2-4bb3031d96e7
---
 misc/findcombinable.pl |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/misc/findcombinable.pl b/misc/findcombinable.pl
index 825ad39..667d6bd 100755
--- a/misc/findcombinable.pl
+++ b/misc/findcombinable.pl
@@ -19,7 +19,7 @@ sub match {
     
     $str = $utf8->decode($str);
     if ($str ne NFC($str)) {
-        return 1;
+        return $utf8->encode(NFC($str));
     }
     
     return '';
@@ -35,8 +35,8 @@ sub checkdir {
     
     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") {
-- 
1.7.9.5