* change function name to reuse code easily

[lab.git] / misc / findcombinable.pl

diff --git a/misc/findcombinable.pl b/misc/findcombinable.pl
index 464ecb8..b6e62a9 100755 (executable)
--- a/misc/findcombinable.pl
+++ b/misc/findcombinable.pl
@@ -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;
         }