diff options
| author | Oliver Tappe | 2007-04-13 16:24:31 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-04-13 16:24:31 +0200 |
| commit | 7b3b226ed2a7b3bcc173e047359ac847624ce527 (patch) | |
| tree | 397cd0f722f4d164f02f6089d80eaeb6c08aecda /config-db/OpenSLX/MetaDB/mysql.pm | |
| parent | * fixed incorrect module names in error message. (diff) | |
| download | core-7b3b226ed2a7b3bcc173e047359ac847624ce527.tar.gz core-7b3b226ed2a7b3bcc173e047359ac847624ce527.tar.xz core-7b3b226ed2a7b3bcc173e047359ac847624ce527.zip | |
* 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
Diffstat (limited to 'config-db/OpenSLX/MetaDB/mysql.pm')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/mysql.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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)", |