From d417ecbed3d356919ae80317c33a9143e20646ef Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Sun, 3 Mar 2019 19:42:10 -0500 Subject: RT# 82942 Replace DBI->connect() with FS::DBI->connect() --- bin/b-move-customers | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bin/b-move-customers') diff --git a/bin/b-move-customers b/bin/b-move-customers index 026e4cc35..e98ac62b8 100755 --- a/bin/b-move-customers +++ b/bin/b-move-customers @@ -5,7 +5,7 @@ use strict; use vars qw( $sdbh ); -use DBI; +use FS::DBI; use FS::UID qw( adminsuidsetup dbh ); use FS::Schema qw( dbdef ); use FS::Record qw( qsearchs ); @@ -72,8 +72,8 @@ my $void_paynum = 2147483646; #top of int range # source(remote) setup -$sdbh = DBI->connect($source_datasrc, $source_user, $source_pw) - or die $DBI::errstr; +$sdbh = FS::DBI->connect($source_datasrc, $source_user, $source_pw) + or die $FS::DBI::errstr; $sdbh->{ChopBlanks} = 1; -- cgit v1.2.1