From c7f6d87610c70ebec4ac175684e29e8051d7e126 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 18 May 2011 11:56:24 +0200
Subject: Do not use autodie

---
 Build.PL                  |  1 -
 Changelog                 |  1 +
 bin/raps2                 |  1 -
 lib/App/Raps2.pm          | 10 ++++++----
 lib/App/Raps2/Password.pm |  1 -
 lib/App/Raps2/UI.pm       |  1 -
 6 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/Build.PL b/Build.PL
index ac3ed67..1994415 100644
--- a/Build.PL
+++ b/Build.PL
@@ -16,7 +16,6 @@ my $build = Module::Build->new(
 	module_name => 'App::Raps2',
 	requires => {
 		'perl' => '5.10.0',
-		'autodie' => 0,
 		'Crypt::CBC' => 0,
 		'Crypt::Eksblowfish' => 0,
 		'Crypt::Eksblowfish::Bcrypt' => 0,
diff --git a/Changelog b/Changelog
index 9aa5ac1..56545d1 100644
--- a/Changelog
+++ b/Changelog
@@ -2,6 +2,7 @@ git HEAD
 
     * Terminal input is now read via Term::ReadLine (included in perl core)
     * New commands: "raps2 del <account>" and "raps2 edit <account>"
+    * Remove autodie, it caused a major performance impact
 
 raps2 0.2 - Fri May 13 2011
 
diff --git a/bin/raps2 b/bin/raps2
index 4c35592..702efa2 100755
--- a/bin/raps2
+++ b/bin/raps2
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 use 5.010;
-use autodie;
 
 use App::Raps2;
 
diff --git a/lib/App/Raps2.pm b/lib/App/Raps2.pm
index 3b97fa9..ce2dcd6 100644
--- a/lib/App/Raps2.pm
+++ b/lib/App/Raps2.pm
@@ -29,7 +29,6 @@ B<App::Raps2> is the backend for B<raps2>, a simple commandline password safe.
 
 use strict;
 use warnings;
-use autodie;
 use 5.010;
 
 use App::Raps2::Password;
@@ -162,7 +161,8 @@ sub create_config {
 		"cost ${cost}\n",
 		"salt ${salt}\n",
 		"hash ${hash}\n",
-	);
+	)
+	or die("Could not write password file: $!\n");
 }
 
 =item $raps2->load_config()
@@ -245,7 +245,8 @@ sub cmd_add {
 		"salt ${salt}\n",
 		"hash ${pass_hash}\n",
 		"extra ${extra_hash}\n",
-	);
+	)
+	or die("Could not write $pwfile: $!\n");
 }
 
 =item $raps2->cmd_dump(I<$account>)
@@ -318,7 +319,8 @@ sub cmd_edit {
 		"salt ${salt}\n",
 		"hash ${pass_hash}\n",
 		"extra ${extra}\n",
-	);
+	)
+	or die("Could not write $pwfile: $!\n");
 }
 
 =item $raps2->cmd_get(I<$name>)
diff --git a/lib/App/Raps2/Password.pm b/lib/App/Raps2/Password.pm
index d24984c..73258b2 100644
--- a/lib/App/Raps2/Password.pm
+++ b/lib/App/Raps2/Password.pm
@@ -2,7 +2,6 @@ package App::Raps2::Password;
 
 use strict;
 use warnings;
-use autodie;
 use 5.010;
 
 use Carp 'confess';
diff --git a/lib/App/Raps2/UI.pm b/lib/App/Raps2/UI.pm
index 9807f52..faca33f 100644
--- a/lib/App/Raps2/UI.pm
+++ b/lib/App/Raps2/UI.pm
@@ -2,7 +2,6 @@ package App::Raps2::UI;
 
 use strict;
 use warnings;
-use autodie;
 use 5.010;
 
 use Carp qw(confess);
-- 
cgit v1.2.3