From f37a988533a55020ad7a397b0be4b5bad6151a4a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 18 May 2011 08:22:28 +0200
Subject: Do not use autodie. Not counting disk IO, this increases performance
 by ~25%

---
 bin/hashl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'bin/hashl')

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");
 		}
 	}
 }
-- 
cgit v1.2.3