diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-11-02 10:31:45 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-11-02 10:31:45 +0100 |
| commit | 3f1d27c4a43492cf2ea379d8a4bea37aa18e3201 (patch) | |
| tree | 80b6deba99e2bb3fe9edb655eaf9228d0d5dab1d /lib | |
| parent | 149e0945d618c6d3b929a030a61967cde3712dd9 (diff) | |
Fix handling of zero-length files (closes #1)
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/App/Hashl.pm | 5 |
1 files changed, 5 insertions, 0 deletions
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 ) |