From b0011a6e2446129bd1f82381c02a0ad9c667afa3 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 9 Oct 2012 11:49:09 +0200
Subject: build.PL: Fix dependencies.

---
 lib/Net/MulkyID/Setup.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/Net/MulkyID/Setup.pm')

diff --git a/lib/Net/MulkyID/Setup.pm b/lib/Net/MulkyID/Setup.pm
index 8c58013..b79f96b 100755
--- a/lib/Net/MulkyID/Setup.pm
+++ b/lib/Net/MulkyID/Setup.pm
@@ -12,6 +12,7 @@ use File::Path qw(make_path);
 use File::Copy;
 use LWP::Simple qw(getstore);
 use Data::Dumper;
+#use autodie;
 
 use base 'Exporter';
 our @EXPORT = qw(setup);
@@ -80,7 +81,8 @@ sub setup() {
   } else {
     say "Generating private key...";
     $key = Crypt::OpenSSL::RSA->generate_key(2048);
-    make_path($configpath);
+    make_path($configpath)
+      or die "Could not create directory: $configpath";
     write_file($pemfile, $key->get_private_key_string())
       or die "Could not write private key to $pemfile: $!";
     say "Private key saved to: $pemfile";
-- 
cgit v1.2.3