summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Changelog1
-rwxr-xr-xbin/hashl6
2 files changed, 5 insertions, 2 deletions
diff --git a/Changelog b/Changelog
index 28bdb40..433930c 100644
--- a/Changelog
+++ b/Changelog
@@ -1,6 +1,7 @@
git HEAD
* Set read size to 0 (zero) to hash whole files
+ * Fix find-new and find-known output so it can be piped to other commands
hashl 1.00 - Wed Nov 02 2011
diff --git a/bin/hashl b/bin/hashl
index 27aaa54..c7519c5 100755
--- a/bin/hashl
+++ b/bin/hashl
@@ -139,7 +139,8 @@ sub db_find_new {
my ( $file, $path ) = @_;
if ( not any { $_->file_in_db($path) } @ehashl ) {
- say "\r\e[2K${file}";
+ print STDERR "\r\e[2K";
+ say $file;
}
return;
@@ -149,7 +150,8 @@ sub db_find_known {
my ( $file, $path ) = @_;
if ( any { $_->file_in_db($path) } @ehashl ) {
- say "\r\e[2K${file}";
+ print STDERR "\r\e[2K";
+ say $file;
}
return;