diff options
Diffstat (limited to 'config-db/OpenSLX/MetaDB/SQLite.pm')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/SQLite.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/config-db/OpenSLX/MetaDB/SQLite.pm b/config-db/OpenSLX/MetaDB/SQLite.pm index 5f8afe15..09641c46 100644 --- a/config-db/OpenSLX/MetaDB/SQLite.pm +++ b/config-db/OpenSLX/MetaDB/SQLite.pm @@ -49,10 +49,13 @@ sub connectConfigDB $dbSpec = "dbname=$dbPath/$openslxConfig{'db-name'}"; } vlog 1, "trying to connect to SQLite-database <$dbSpec>"; + eval ('require DBD::SQLite; 1;') + or die _tr("DBD::SQLite doesn't seem to be installed, " + ."so there is no support for SQLite available, sorry!\n"); $self->{'dbh'} = DBI->connect("dbi:SQLite:$dbSpec", undef, undef, - {PrintError => 0}) - or confess _tr("Cannot connect to database <%s> (%s)"), - $dbSpec, $DBI::errstr; + {PrintError => 0, AutoCommit => 1}) + or confess _tr("Cannot connect to database <%s> (%s)", + $dbSpec, $DBI::errstr); } sub schemaRenameTable |