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)

---
 bin/hashl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'bin/hashl')

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