append a session's history on shell exit and unlimited history list

[lab.git] / misc / findcombinable.pl

diff --git a/misc/findcombinable.pl b/misc/findcombinable.pl
index f3096c7..667d6bd 100755 (executable)
--- 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 '';
@@ -28,15 +28,15 @@ sub match {
 sub checkdir {
     my $target = shift @_;
     
-    print STDERR "checking '$target'\n";
+    print STDERR "# checking '$target'\n";
     opendir(my $dir, $target) || return $target;
     my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
     closedir($dir);
     
     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") {