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 { ...@@ -733,6 +733,8 @@ sub get_dbconnection {
$dsn .= ";dbname=".$self->param("${prefix}dbname"); $dsn .= ";dbname=".$self->param("${prefix}dbname");
} }
# warn $dsn;
my $dbh; my $dbh;
eval{ eval{
$dbh = DBI->connect($dsn, $self->param("${prefix}user"), $dbh = DBI->connect($dsn, $self->param("${prefix}user"),
...@@ -742,7 +744,7 @@ sub get_dbconnection { ...@@ -742,7 +744,7 @@ sub get_dbconnection {
if (!$dbh || $@ || !$dbh->ping) { if (!$dbh || $@ || !$dbh->ping) {
$self->log_error("Could not connect to db server as user ". $self->log_error("Could not connect to db server as user ".
$self->param("${prefix}user") . $self->param("${prefix}user") .
" using [$dsn] as a locator:\n" . $DBI::errstr); " using [$dsn] as a locator:\n" . $DBI::errstr . $@);
} }
$self->{'_dbh'} = $dbh; $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