diff options
Diffstat (limited to 'torrus/perllib/Torrus/SQL.pm')
| -rw-r--r-- | torrus/perllib/Torrus/SQL.pm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/torrus/perllib/Torrus/SQL.pm b/torrus/perllib/Torrus/SQL.pm index de54cacee..bfd9351fb 100644 --- a/torrus/perllib/Torrus/SQL.pm +++ b/torrus/perllib/Torrus/SQL.pm @@ -124,16 +124,20 @@ sub dbh if( not defined( $dbh ) ) { - $dbh = DBI->connect( $attrs->{'dsn'}, - $attrs->{'username'}, - $attrs->{'password'}, - { 'PrintError' => 0, - 'AutoCommit' => 0 } ); + $dbh = FS::DBI->connect( + $attrs->{'dsn'}, + $attrs->{'username'}, + $attrs->{'password'}, + { + 'PrintError' => 0, + 'AutoCommit' => 0, + } + ); if( not defined( $dbh ) ) { Error('Error connecting to DBI source ' . $attrs->{'dsn'} . ': ' . - $DBI::errstr); + $FS::DBI::errstr); } else { |