* fix: previous procedure skips files such as '...'

[lab.git] / misc / findnonsjis.pl

diff --git a/misc/findnonsjis.pl b/misc/findnonsjis.pl
index dbf8c9c..87c8ea5 100755 (executable)
--- a/misc/findnonsjis.pl
+++ b/misc/findnonsjis.pl
@@ -3,7 +3,6 @@
 use strict;
 use warnings;
 use utf8;
-use encoding 'utf-8';
 
 use Encode;
 
@@ -30,12 +29,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 =~ /^\.+$/);
         if (match($entry)) {
             print "'$target/$entry' contains non Shift_JIS character\n";
             next;