From dfae53c2f44556e3c2c93620e5c8c9ae4788985c Mon Sep 17 00:00:00 2001 From: mitty Date: Fri, 25 Jan 2013 11:03:09 +0000 Subject: [PATCH] * add "#" to STDERR output git-svn-id: https://lab.mitty.jp/svn/lab/trunk@195 7d2118f6-f56c-43e7-95a2-4bb3031d96e7 --- misc/findcombinable.pl | 2 +- misc/findnonsjis.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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); -- 1.7.9.5