Fix handling of zero-length files (closes #1)

2 files changed, 6 insertions, 0 deletions

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 )