diff options
author | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 19:42:10 -0500 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2019-03-03 19:49:20 -0500 |
commit | 01776c9e52c63662403dcb19155ffe3bc8a035ee (patch) | |
tree | 53d6e06b849ae5089f43e3b61998dc9b4d627760 /FS/FS/Upgrade.pm | |
parent | 70e31cdfd01949235897035ad818e9a7b2d0c958 (diff) |
RT# 82942 Replace DBI->connect() with FS::DBI->connect()
Diffstat (limited to 'FS/FS/Upgrade.pm')
-rw-r--r-- | FS/FS/Upgrade.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 8e6a1f132..8850d36a3 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -11,6 +11,7 @@ use FS::Record qw(qsearchs qsearch str2time_sql); use FS::queue; use FS::upgrade_journal; use FS::Setup qw( enable_banned_pay_pad ); +use FS::DBI; use FS::svc_domain; $FS::svc_domain::whois_hack = 1; @@ -636,11 +637,11 @@ sub upgrade_sqlradius { my $errmsg = 'Error adding FreesideStatus to '. $part_export->option('datasrc'). ': '; - my $dbh = DBI->connect( + my $dbh = FS::DBI->connect( ( map $part_export->option($_), qw ( datasrc username password ) ), { PrintError => 0, PrintWarn => 0 } ) or do { - warn $errmsg.$DBI::errstr; + warn $errmsg.$FS::DBI::errstr; next; }; |