Skip to content
Snippets Groups Projects
Commit 854b2361 authored by Steve Trevanion's avatar Steve Trevanion
Browse files

*** empty log message ***

parent f766fb69
No related branches found
No related tags found
No related merge requests found
......@@ -733,6 +733,8 @@ sub get_dbconnection {
$dsn .= ";dbname=".$self->param("${prefix}dbname");
}
# warn $dsn;
my $dbh;
eval{
$dbh = DBI->connect($dsn, $self->param("${prefix}user"),
......@@ -742,7 +744,7 @@ sub get_dbconnection {
if (!$dbh || $@ || !$dbh->ping) {
$self->log_error("Could not connect to db server as user ".
$self->param("${prefix}user") .
" using [$dsn] as a locator:\n" . $DBI::errstr);
" using [$dsn] as a locator:\n" . $DBI::errstr . $@);
}
$self->{'_dbh'} = $dbh;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment