* add "#" to STDERR output

git-svn-id: https://lab.mitty.jp/svn/lab/trunk@195 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

diff --git a/misc/findcombinable.pl b/misc/findcombinable.pl
index f3096c7..825ad39 100755 (executable)
--- a/misc/findcombinable.pl
+++ b/misc/findcombinable.pl
@@ -28,7 +28,7 @@ sub match {
 sub checkdir {
     my $target = shift @_;
     
-    print STDERR "checking '$target'\n";
+    print STDERR "# checking '$target'\n";
     opendir(my $dir, $target) || return $target;
     my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
     closedir($dir);

diff --git a/misc/findnonsjis.pl b/misc/findnonsjis.pl
index 87c8ea5..1ae7aef 100755 (executable)
--- a/misc/findnonsjis.pl
+++ b/misc/findnonsjis.pl
@@ -27,7 +27,7 @@ sub match {
 sub checkdir {
     my $target = shift @_;
     
-    print STDERR "checking '$target'\n";
+    print STDERR "# checking '$target'\n";
     opendir(my $dir, $target) || return $target;
     my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
     closedir($dir);