hashl: Fix filename output (contained escapes meant for stderr)

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;