From 573cea299ef15fe0491cfdebfb0a56a67a1020fc Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 23 May 2013 19:30:43 +0200
Subject: hashl: Fix filename output (contained escapes meant for stderr)

---
 Changelog | 1 +
 bin/hashl | 6 ++++--
 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;
-- 
cgit v1.2.3