From ab265f85673b2eaa1f9de108ad962dba602b71de Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Fri, 8 Jan 2016 18:17:14 +0100
Subject: Make errors more descriptive

---
 Aufgabe7/db-passwd-create.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Aufgabe7/db-passwd-create.pl')

diff --git a/Aufgabe7/db-passwd-create.pl b/Aufgabe7/db-passwd-create.pl
index 0c9c470..5a43831 100644
--- a/Aufgabe7/db-passwd-create.pl
+++ b/Aufgabe7/db-passwd-create.pl
@@ -28,7 +28,7 @@ use DBI;
 # Get database config
 my %dbconf = do 'dbinc.pl';
 
-my $dbhandle = DBI->connect("DBI:mysql:host=$dbconf{dbhost};database=$dbconf{dbdatabase}", $dbconf{dbuser}, $dbconf{dbpasswd}) or die 'DB not accessible';
+my $dbhandle = DBI->connect("DBI:mysql:host=$dbconf{dbhost};database=$dbconf{dbdatabase}", $dbconf{dbuser}, $dbconf{dbpasswd}, {RaiseError=>1}) or die 'DB not accessible';
 
 #Create DB
 $dbhandle->do("CREATE TABLE stsuh_passwort
@@ -43,6 +43,6 @@ $dbhandle->do("CREATE TABLE stsuh_passwort
 					commandinterpreter	CHAR(255),
 					PRIMARY KEY (nr)
 				)
-") or die 'Could not create database';
+") or die $dbhandle->errstr;
 
 $dbhandle->disconnect;
-- 
cgit v1.2.3-70-g09d2