Changeset 195 in lab for trunk/misc/findnonsjis.pl

Timestamp:

Jan 25, 2013 8:03:09 PM (11 years ago)

Author:

mitty

Message:

• add "#" to STDERR output

File:

• trunk/misc/findnonsjis.pl (modified) (1 diff)

trunk/misc/findnonsjis.pl

@@ -28 +28 @@
     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);