diff options
| -rw-r--r-- | Changelog | 1 | ||||
| -rw-r--r-- | lib/App/Hashl.pm | 5 |
2 files changed, 6 insertions, 0 deletions
@@ -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 ) |