diff options
| -rw-r--r-- | config-db/OpenSLX/ConfigDB.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm index 9d1b266e..39f59485 100644 --- a/config-db/OpenSLX/ConfigDB.pm +++ b/config-db/OpenSLX/ConfigDB.pm @@ -175,11 +175,17 @@ sub connectConfigDB # name of underlying database module my $dbModule = "OpenSLX::MetaDB::$dbType"; unless (eval "require $dbModule") { - confess _tr('Unable to load DB-module <%s> (%s)', $dbModule, $@); + if ($! == 2) { + die _tr("Unable to load DB-module <%s>\n" + ."that database type is not supported (yet?)\n", $dbModule); + } else { + die _tr("Unable to load DB-module <%s> (%s)\n", $dbModule, $@); + } } my $modVersion = $dbModule->VERSION; if ($modVersion < $VERSION) { - confess _tr('Could not load module <%s> (Version <%s> required, but <%s> found)', + confess _tr('Could not load module <%s> (Version <%s> required, ' + .'but <%s> found)', $dbModule, $VERSION, $modVersion); } $dbModule->import; |