X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=misc%2Ffindcombinable.pl;fp=misc%2Ffindcombinable.pl;h=8d515d962ac490e3630572d2539e5d51660ae4e1;hb=0e3de6438268c17083907e7410471d9ee497963f;hp=7b9d629095c060cbb9cf590953981ad8d8f17836;hpb=e4e7407c6608e107411d338d4820da5109a51f66;p=lab.git

diff --git a/misc/findcombinable.pl b/misc/findcombinable.pl
index 7b9d629..8d515d9 100755
--- a/misc/findcombinable.pl
+++ b/misc/findcombinable.pl
@@ -32,12 +32,11 @@ sub checkdir {
     
     print STDERR "checking '$target'\n";
     opendir(my $dir, $target) || return $target;
-    my @entries = sort readdir($dir);
+    my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
     closedir($dir);
     
     my @dirs;
     while (my $entry = shift @entries) {
-        next if ($entry =~ /^\.+$/);
         $entry = $utf8->decode($entry);
         if (match($entry)) {
             print "'$target/$entry' can be composed\n";