projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
[freeside.git]
/
torrus
/
perllib
/
Torrus
/
SQL.pm
diff --git
a/torrus/perllib/Torrus/SQL.pm
b/torrus/perllib/Torrus/SQL.pm
index
de54cac
..
bfd9351
100644
(file)
--- a/
torrus/perllib/Torrus/SQL.pm
+++ b/
torrus/perllib/Torrus/SQL.pm
@@
-124,16
+124,20
@@
sub dbh
if( not defined( $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'} . ': ' .
if( not defined( $dbh ) )
{
Error('Error connecting to DBI source ' . $attrs->{'dsn'} . ': ' .
- $DBI::errstr);
+ $
FS::
DBI::errstr);
}
else
{
}
else
{