* change function name to reuse code easily
authormitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Thu, 24 Jan 2013 12:06:25 +0000 (12:06 +0000)
committermitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Thu, 24 Jan 2013 12:06:25 +0000 (12:06 +0000)
git-svn-id: https://lab.mitty.jp/svn/lab/trunk@188 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

misc/findcombinable.pl

index 464ecb8..b6e62a9 100755 (executable)
@@ -12,7 +12,7 @@ if (! -d $top) { exit; }
 
 checkdir($top);
 
-sub combinable {
+sub match {
     my $str = shift @_;
     
     if ($str ne NFC($str)) {
@@ -36,7 +36,7 @@ sub checkdir {
     my @dirs;
     while (my $entry = shift @entries) {
         next if ($entry =~ /^\.+$/);
-        if (combinable($entry)) {
+        if (match($entry)) {
             print "'$target/$entry' can be composed\n";
             next;
         }