From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Fri, 25 Jan 2013 11:03:09 +0000 (+0000)
Subject:  * add "#" to STDERR output
X-Git-Url: http://lab.mitty.jp/git/?a=commitdiff_plain;h=dfae53c2f44556e3c2c93620e5c8c9ae4788985c;p=lab.git

 * 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
--- 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
--- 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);