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/CSV.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/CSV.pm')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/CSV.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/config-db/OpenSLX/MetaDB/CSV.pm b/config-db/OpenSLX/MetaDB/CSV.pm index 44bd2158..39cf13f0 100644 --- a/config-db/OpenSLX/MetaDB/CSV.pm +++ b/config-db/OpenSLX/MetaDB/CSV.pm @@ -65,7 +65,7 @@ sub connect vlog 1, "trying to connect to CSV-database <$dbSpec>"; eval ('require DBD::CSV; 1;') or die _tr(qq[%s doesn't seem to be installed, -so there is no support for %s available, sorry!\n], 'DBD::CSV', 'CSV'); +so there is no support for %s available, sorry!\n%s], 'DBD::CSV', 'CSV', $@); $self->{'dbh'} = DBI->connect("dbi:CSV:$dbSpec", undef, undef, {PrintError => 0}) or confess _tr("Cannot connect to database <%s> (%s)", |