From 3f1d27c4a43492cf2ea379d8a4bea37aa18e3201 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 2 Nov 2011 10:31:45 +0100
Subject: Fix handling of zero-length files (closes #1)

---
 Changelog        | 1 +
 lib/App/Hashl.pm | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/Changelog b/Changelog
index 5e5d34a..abf550e 100644
--- a/Changelog
+++ b/Changelog
@@ -1,6 +1,7 @@
 git HEAD
 
     * Add "hashl list <regex>" to filter listed files by name
+    * Do not fail when encountering zero-length files
 
 hashl 0.2 - Mon May 23 2011
 
diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm
index 1f43060..2c382ea 100644
--- a/lib/App/Hashl.pm
+++ b/lib/App/Hashl.pm
@@ -47,6 +47,11 @@ sub hash_file {
 	my ( $self, $file ) = @_;
 	my $data;
 
+	# read() fails for empty files
+	if ( ( stat($file) )[7] == 0 ) {
+		return sha1_hex();
+	}
+
 	#<<< perltidy has problems indenting 'or die' with tabs
 
 	open( my $fh, '<', $file )
-- 
cgit v1.2.3