summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/hashl8
-rw-r--r--lib/App/Hashl.pm13
2 files changed, 12 insertions, 9 deletions
diff --git a/bin/hashl b/bin/hashl
index 30b3993..40875ee 100755
--- a/bin/hashl
+++ b/bin/hashl
@@ -5,11 +5,9 @@
use strict;
use warnings;
use 5.010;
-use autodie;
use App::Hashl;
use Cwd;
-use Digest::SHA qw(sha1_hex);
use File::Copy;
use File::Find;
use Getopt::Long;
@@ -90,7 +88,8 @@ sub copy_file {
mkdirs($incoming_dir, $base);
}
- copy($file, "${to}/${base}");
+ copy($file, "${to}/${base}")
+ or die("Cannot copy ${file} to ${to}/${base}: $!\n");
}
sub db_find_new {
@@ -192,7 +191,8 @@ sub mkdirs {
for my $dir (split(qr{/}, $new)) {
$base .= "/$dir";
if (! -d $base) {
- mkdir($base);
+ mkdir($base)
+ or die("Cannot create ${base}: $!\n");
}
}
}
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);
}