From 7b3b226ed2a7b3bcc173e047359ac847624ce527 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Fri, 13 Apr 2007 14:24:31 +0000
Subject: * improved error message in case a database module could   not be
 loaded

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@886 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/OpenSLX/MetaDB/mysql.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'config-db/OpenSLX/MetaDB/mysql.pm')

diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm
index dcb7ff0e..4e580af0 100644
--- a/config-db/OpenSLX/MetaDB/mysql.pm
+++ b/config-db/OpenSLX/MetaDB/mysql.pm
@@ -55,7 +55,7 @@ sub connect
 	vlog 1, "trying to connect user <$user> to mysql-database <$dbSpec>";
 	eval ('require DBD::mysql; 1;')
 		or die _tr(qq[%s doesn't seem to be installed,
-so there is no support for %s available, sorry!\n], 'DBD::mysql', 'mysql');
+so there is no support for %s available, sorry!\n%s], 'DBD::mysql', 'mysql', $@);
 	$self->{'dbh'} = DBI->connect("dbi:mysql:$dbSpec", $user, '',
 								  {PrintError => 0})
 			or confess _tr("Cannot connect to database <%s> (%s)",
-- 
cgit v1.2.3-55-g7522