Index: misc/findcombinable.pl
===================================================================
--- misc/findcombinable.pl	(revision e4e7407c6608e107411d338d4820da5109a51f66)
+++ misc/findcombinable.pl	(revision 0e3de6438268c17083907e7410471d9ee497963f)
@@ -33,10 +33,9 @@
     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)) {
Index: misc/findnonsjis.pl
===================================================================
--- misc/findnonsjis.pl	(revision 89fbc5de53910554c7167b12c82cab8c5eb2dce6)
+++ misc/findnonsjis.pl	(revision 0e3de6438268c17083907e7410471d9ee497963f)
@@ -30,10 +30,9 @@
     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 =~ /^\.+$/);
         if (match($entry)) {
             print "'$target/$entry' contains non Shift_JIS character\n";