summaryrefslogtreecommitdiff
path: root/lib/App
diff options
context:
space:
mode:
Diffstat (limited to 'lib/App')
-rw-r--r--lib/App/Hashl.pm13
1 files changed, 8 insertions, 5 deletions
diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm
index 0e08794..c0b7e8c 100644
--- a/lib/App/Hashl.pm
+++ b/lib/App/Hashl.pm
@@ -2,7 +2,6 @@ package App::Hashl;
use strict;
use warnings;
-use autodie;
use 5.010;
use Digest::SHA qw(sha1_hex);
@@ -106,10 +105,14 @@ sub hash_file {
my ($self, $file) = @_;
my ($fh, $data);
- open($fh, '<', $file);
- binmode($fh);
- read($fh, $data, $self->{config}->{read_size});
- close($fh);
+ open($fh, '<', $file)
+ or die("Can't open ${file} for reading: $!\n");;
+ binmode($fh)
+ or die("Can't set binmode on ${file}: $!\n");
+ read($fh, $data, $self->{config}->{read_size})
+ or die("Can't read ${file}: $!\n");
+ close($fh)
+ or die("Can't close ${file}: $!\n");
return sha1_hex($data);
}