I've got a script I use for backing up MS-SQL databases via DBD::ODBC on
Windows. It was working fine with ActivePerl 5.6.1 (build 633), DBI 1.30
and DBD::ODBC 0.43, but when I upgraded to ActivePerl 5.8.4 (build 810),
DBI 1.42 and DBD::ODBC 1.09, it's not working correctly. What happens, is
that the backup proceeds normally until just before it finishes. Then, the
backup file (which I have watched grow during execution) is removed and the
command finishes with no error indicated. I've tracked it down to a problem
with SQLExecDirect, since I can get it to work by using a placeholder for
the database name, which forces the normal prepare/execute rather than
SQLExecDirect. I've reduced the problem down to a single $dbh->do. I'm
attaching two versions: "good", which works because I used the placeholder,
and "bad" which doesn't, as well as trace logs (with DBI_TRACE=9) for each
of them.
--
David Good [EMAIL PROTECTED]
This space intentionally left blank.
#! perl
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect(
"dbi:ODBC:DEVCYGWIN",
"sa",
"my_password",
{
RaiseError => 1,
PrintError => 0,
AutoCommit => 1,
}
);
my $sql = <<EOSQL;
backup database "foo"
to DISK = 'C:/temp/backup_test'
with init
EOSQL
$dbh->do($sql);
DBI 1.42-ithread default trace level set to Ox9/0 (in pid 1464)
-> DBI->connect(dbi:ODBC:DEVCYGWIN, sa, ****, HASH(0x15d5468))
-> DBI->install_driver(ODBC) for MSWin32 perl=5.008004 pid=1464 ruid=0 euid=0
install_driver: DBD::ODBC version 1.09 loaded from C:/Perl/site/lib/DBD/ODBC.pm
New DBI::dr (for DBD::ODBC::dr, parent=, id=)
dbih_setup_handle(DBI::dr=HASH(0x1b54b94)=>DBI::dr=HASH(0x1bd78e4), DBD::ODBC::dr,
0, Null!)
dbih_make_com(Null!, 0, DBD::ODBC::dr, 92, 0) thr#15d4574
dbih_setup_attrib(DBI::dr=HASH(0x1bd78e4), Err, Null!) SCALAR(0x1bc0684) (already
defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd78e4), State, Null!) SCALAR(0x1bc06cc)
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd78e4), Errstr, Null!) SCALAR(0x1bc06a8)
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd78e4), TraceLevel, Null!) 0 (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd78e4), FetchHashKeyName, Null!) 'NAME'
(already defined)
<- install_driver= DBI::dr=HASH(0x1b54b94)
>> connect DISPATCH (DBI::dr=HASH(0x1b54b94) rc2/3 @5 g0 ima1 pid#1464) at
C:/Perl/site/lib/DBI.pm line 587
!! warn: 0 CLEARED by call to connect method
-> connect for DBD::ODBC::dr (DBI::dr=HASH(0x1b54b94)~0x1bd78e4 'DEVCYGWIN' 'sa'
**** HASH(0x1bd9ac8)) thr#15d4574
New DBI::db (for DBD::ODBC::db, parent=DBI::dr=HASH(0x1bd78e4), id=)
dbih_setup_handle(DBI::db=HASH(0x1bd78a8)=>DBI::db=HASH(0x1bd9b34), DBD::ODBC::db,
1b548e8, Null!)
dbih_make_com(DBI::dr=HASH(0x1bd78e4), 1bd92b4, DBD::ODBC::db, 220, 0) thr#15d4574
dbih_setup_attrib(DBI::db=HASH(0x1bd9b34), Err, DBI::dr=HASH(0x1bd78e4))
SCALAR(0x1b5b6f4) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9b34), State, DBI::dr=HASH(0x1bd78e4))
SCALAR(0x1b5b754) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9b34), Errstr, DBI::dr=HASH(0x1bd78e4))
SCALAR(0x1b5b724) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9b34), TraceLevel, DBI::dr=HASH(0x1bd78e4)) 0
(already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9b34), FetchHashKeyName,
DBI::dr=HASH(0x1bd78e4)) 'NAME' (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9b34), HandleSetErr, DBI::dr=HASH(0x1bd78e4))
undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9b34), HandleError, DBI::dr=HASH(0x1bd78e4))
undef (not defined)
Driver connect 'DEVCYGWIN', 'sa', 'dbcc_die'
SQLDriverConnect failed:
SQLConnect 'DEVCYGWIN', 'sa'
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Changed database context to
'master'.
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Changed language setting to
us_english.
Connected to: Microsoft SQL Server
SQLGetFunctions - SQL_MoreResults supported: 1
<- connect= DBI::db=HASH(0x1bd78a8) at C:/Perl/site/lib/DBI.pm line 587
>> STORE DISPATCH (DBI::db=HASH(0x1bd9b34) rc2/1 @3 g0 ima41c pid#1464) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9b34)~INNER 'RaiseError' 1)
thr#15d4574
DBD::ODBC unsupported attribute passed (RaiseError)
STORE DBI::db=HASH(0x1bd9b34) 'RaiseError' => 1
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9b34) rc2/1 @3 g0 ima41c pid#1464) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9b34)~INNER 'PrintError' 0)
thr#15d4574
DBD::ODBC unsupported attribute passed (PrintError)
STORE DBI::db=HASH(0x1bd9b34) 'PrintError' => 0
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9b34) rc2/1 @3 g0 ima41c pid#1464) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9b34)~INNER 'AutoCommit' 1)
thr#15d4574
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9b34) rc2/1 @3 g0 ima41c pid#1464) at
C:/Perl/site/lib/DBI.pm line 634 via ./bad line 7
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9b34)~INNER 'Username' 'sa')
thr#15d4574
DBD::ODBC unsupported attribute passed (Username)
STORE DBI::db=HASH(0x1bd9b34) 'Username' => 'sa'
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 634 via ./bad line 7
>> FETCH DISPATCH (DBI::db=HASH(0x1bd9b34) rc2/1 @2 g0 ima404 pid#1464) at
C:/Perl/site/lib/DBI.pm line 634
<> FETCH= 'sa' ('Username' from cache) at C:/Perl/site/lib/DBI.pm line 634
<- connect= DBI::db=HASH(0x1bd78a8)
>> STORE DISPATCH (DBI::db=HASH(0x1bd9b34) rc2/1 @3 g0 ima41c pid#1464) at
C:/Perl/site/lib/DBI.pm line 648 via ./bad line 7
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9b34)~INNER 'dbi_connect_closure'
CODE(0x1bd77f4)) thr#15d4574
DBD::ODBC unsupported attribute passed (dbi_connect_closure)
STORE DBI::db=HASH(0x1bd9b34) 'dbi_connect_closure' => CODE(0x1bd77f4)
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 648 via ./bad line 7
>> do DISPATCH (DBI::db=HASH(0x1bd78a8) rc1/1 @2 g0 ima3201 pid#1464) at
./bad line 24
-> do for DBD::ODBC::db (DBI::db=HASH(0x1bd78a8)~0x1bd9b34 'backup database "foo"
to DISK = 'C:/temp/backup_test'
with init
') thr#15d4574
SQLExecDirect sql backup database "foo"
to DISK = 'C:/temp/backup_test'
with init
<- do= -1 at ./bad line 24
>> DESTROY DISPATCH (DBI::db=HASH(0x1bd78a8) rc1/1 @1 g0 ima4 pid#1464)
<> DESTROY ignored for outer handle DBI::db=HASH(0x1bd78a8) (inner
DBI::db=HASH(0x1bd9b34) has ref cnt 1)
>> DESTROY DISPATCH (DBI::db=HASH(0x1bd9b34) rc1/1 @1 g0 ima4 pid#1464)
-> DESTROY for DBD::ODBC::db (DBI::db=HASH(0x1bd9b34)~INNER) thr#15d4574
DBD::ODBC Disconnected!
<- DESTROY= undef
DESTROY (dbih_clearcom) (dbh 0x1bd78a8, com 0x1bdaa64, imp DBD::ODBC::db):
FLAGS 0x180291: COMSET Warn RaiseError PrintWarn AutoCommit
PARENT DBI::dr=HASH(0x1bd78e4)
KIDS 0 (0 Active)
IMP_DATA undef
dbih_clearcom 0x1bd78a8 (com 0x1bdaa64, type 2) done.
-- DBI::END
>> disconnect_all DISPATCH (DBI::dr=HASH(0x1b54b94) rc1/3 @1 g0 ima801 pid#1464)
at C:/Perl/site/lib/DBI.pm line 657 via ./bad line 0
-> disconnect_all for DBD::ODBC::dr (DBI::dr=HASH(0x1b54b94)~0x1bd78e4) thr#15d4574
<- disconnect_all= '' at C:/Perl/site/lib/DBI.pm line 657 via ./bad line 0
! >> DESTROY DISPATCH (DBI::dr=HASH(0x1bd78e4) rc1/1 @1 g0 ima4 pid#1464) during
global destruction
! -> DESTROY for DBD::ODBC::dr (DBI::dr=HASH(0x1bd78e4)~INNER) thr#15d4574
! <- DESTROY= (not implemented) during global destruction
DESTROY (dbih_clearcom) (drh 0x1b54b94, com 0x1bd92b4, imp global destruction):
FLAGS 0x180215: COMSET Active Warn PrintWarn AutoCommit
PARENT undef
KIDS 0 (0 Active)
IMP_DATA undef
dbih_clearcom 0x1b54b94 (com 0x1bd92b4, type 1) done.
! >> DESTROY DISPATCH (DBI::dr=HASH(0x1b54b94) rc1/1 @1 g0 ima4 pid#1464) during
global destruction
! <> DESTROY for DBI::dr=HASH(0x1b54b94) ignored (inner handle gone)
#! perl
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect(
"dbi:ODBC:DEVCYGWIN",
"sa",
"my_password",
{
RaiseError => 1,
PrintError => 0,
AutoCommit => 1,
}
);
my $sql = <<EOSQL;
backup database ?
to DISK = 'C:/temp/backup_test'
with init
EOSQL
$dbh->do($sql, undef, "foo");
DBI 1.42-ithread default trace level set to Ox9/0 (in pid 344)
-> DBI->connect(dbi:ODBC:DEVCYGWIN, sa, ****, HASH(0x15d5468))
-> DBI->install_driver(ODBC) for MSWin32 perl=5.008004 pid=344 ruid=0 euid=0
install_driver: DBD::ODBC version 1.09 loaded from C:/Perl/site/lib/DBD/ODBC.pm
New DBI::dr (for DBD::ODBC::dr, parent=, id=)
dbih_setup_handle(DBI::dr=HASH(0x1b54b94)=>DBI::dr=HASH(0x1bd78c0), DBD::ODBC::dr,
0, Null!)
dbih_make_com(Null!, 0, DBD::ODBC::dr, 92, 0) thr#15d4574
dbih_setup_attrib(DBI::dr=HASH(0x1bd78c0), Err, Null!) SCALAR(0x1bc0690) (already
defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd78c0), State, Null!) SCALAR(0x1bc06d8)
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd78c0), Errstr, Null!) SCALAR(0x1bc06b4)
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd78c0), TraceLevel, Null!) 0 (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x1bd78c0), FetchHashKeyName, Null!) 'NAME'
(already defined)
<- install_driver= DBI::dr=HASH(0x1b54b94)
>> connect DISPATCH (DBI::dr=HASH(0x1b54b94) rc2/3 @5 g0 ima1 pid#344) at
C:/Perl/site/lib/DBI.pm line 587
!! warn: 0 CLEARED by call to connect method
-> connect for DBD::ODBC::dr (DBI::dr=HASH(0x1b54b94)~0x1bd78c0 'DEVCYGWIN' 'sa'
**** HASH(0x1bd9a64)) thr#15d4574
New DBI::db (for DBD::ODBC::db, parent=DBI::dr=HASH(0x1bd78c0), id=)
dbih_setup_handle(DBI::db=HASH(0x1bd7884)=>DBI::db=HASH(0x1bd9ad0), DBD::ODBC::db,
1b548e8, Null!)
dbih_make_com(DBI::dr=HASH(0x1bd78c0), 1bd927c, DBD::ODBC::db, 220, 0) thr#15d4574
dbih_setup_attrib(DBI::db=HASH(0x1bd9ad0), Err, DBI::dr=HASH(0x1bd78c0))
SCALAR(0x1b5b6f4) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9ad0), State, DBI::dr=HASH(0x1bd78c0))
SCALAR(0x1b5b754) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9ad0), Errstr, DBI::dr=HASH(0x1bd78c0))
SCALAR(0x1b5b724) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9ad0), TraceLevel, DBI::dr=HASH(0x1bd78c0)) 0
(already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9ad0), FetchHashKeyName,
DBI::dr=HASH(0x1bd78c0)) 'NAME' (already defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9ad0), HandleSetErr, DBI::dr=HASH(0x1bd78c0))
undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x1bd9ad0), HandleError, DBI::dr=HASH(0x1bd78c0))
undef (not defined)
Driver connect 'DEVCYGWIN', 'sa', 'dbcc_die'
SQLDriverConnect failed:
SQLConnect 'DEVCYGWIN', 'sa'
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Changed database context to
'master'.
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Changed language setting to
us_english.
Connected to: Microsoft SQL Server
SQLGetFunctions - SQL_MoreResults supported: 1
<- connect= DBI::db=HASH(0x1bd7884) at C:/Perl/site/lib/DBI.pm line 587
>> STORE DISPATCH (DBI::db=HASH(0x1bd9ad0) rc2/1 @3 g0 ima41c pid#344) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9ad0)~INNER 'RaiseError' 1)
thr#15d4574
DBD::ODBC unsupported attribute passed (RaiseError)
STORE DBI::db=HASH(0x1bd9ad0) 'RaiseError' => 1
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9ad0) rc2/1 @3 g0 ima41c pid#344) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9ad0)~INNER 'PrintError' 0)
thr#15d4574
DBD::ODBC unsupported attribute passed (PrintError)
STORE DBI::db=HASH(0x1bd9ad0) 'PrintError' => 0
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9ad0) rc2/1 @3 g0 ima41c pid#344) at
C:/Perl/site/lib/DBI.pm line 631
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9ad0)~INNER 'AutoCommit' 1)
thr#15d4574
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 631
>> STORE DISPATCH (DBI::db=HASH(0x1bd9ad0) rc2/1 @3 g0 ima41c pid#344) at
C:/Perl/site/lib/DBI.pm line 634 via ./good line 7
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9ad0)~INNER 'Username' 'sa')
thr#15d4574
DBD::ODBC unsupported attribute passed (Username)
STORE DBI::db=HASH(0x1bd9ad0) 'Username' => 'sa'
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 634 via ./good line 7
>> FETCH DISPATCH (DBI::db=HASH(0x1bd9ad0) rc2/1 @2 g0 ima404 pid#344) at
C:/Perl/site/lib/DBI.pm line 634
<> FETCH= 'sa' ('Username' from cache) at C:/Perl/site/lib/DBI.pm line 634
<- connect= DBI::db=HASH(0x1bd7884)
>> STORE DISPATCH (DBI::db=HASH(0x1bd9ad0) rc2/1 @3 g0 ima41c pid#344) at
C:/Perl/site/lib/DBI.pm line 648 via ./good line 7
-> STORE for DBD::ODBC::db (DBI::db=HASH(0x1bd9ad0)~INNER 'dbi_connect_closure'
CODE(0x1bd77d0)) thr#15d4574
DBD::ODBC unsupported attribute passed (dbi_connect_closure)
STORE DBI::db=HASH(0x1bd9ad0) 'dbi_connect_closure' => CODE(0x1bd77d0)
<- STORE= 1 at C:/Perl/site/lib/DBI.pm line 648 via ./good line 7
>> do DISPATCH (DBI::db=HASH(0x1bd7884) rc1/1 @4 g0 ima3201 pid#344) at
./good line 24
-> do for DBD::ODBC::db (DBI::db=HASH(0x1bd7884)~0x1bd9ad0 'backup database ?
to DISK = 'C:/temp/backup_test'
with init
' undef 'foo') thr#15d4574
>> prepare DISPATCH (DBI::db=HASH(0x1bd9ad0) rc1/3 @3 g0 ima2201 pid#344) at
C:/Perl/site/lib/DBI.pm line 1410
1 -> prepare for DBD::ODBC::db (DBI::db=HASH(0x1bd9ad0)~INNER 'backup database ?
to DISK = 'C:/temp/backup_test'
with init
' undef) thr#15d4574
New DBI::st (for DBD::ODBC::st, parent=DBI::db=HASH(0x1bd9ad0), id=)
dbih_setup_handle(DBI::st=HASH(0x1bd9b54)=>DBI::st=HASH(0x1bd9c50), DBD::ODBC::st,
1bd9b60, Null!)
dbih_make_com(DBI::db=HASH(0x1bd9ad0), 1bdaa2c, DBD::ODBC::st, 208, 0) thr#15d4574
dbih_setup_attrib(DBI::st=HASH(0x1bd9c50), Err, DBI::db=HASH(0x1bd9ad0))
SCALAR(0x1b5b6f4) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bd9c50), State, DBI::db=HASH(0x1bd9ad0))
SCALAR(0x1b5b754) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bd9c50), Errstr, DBI::db=HASH(0x1bd9ad0))
SCALAR(0x1b5b724) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bd9c50), TraceLevel, DBI::db=HASH(0x1bd9ad0)) 0
(already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bd9c50), FetchHashKeyName,
DBI::db=HASH(0x1bd9ad0)) 'NAME' (already defined)
dbih_setup_attrib(DBI::st=HASH(0x1bd9c50), HandleSetErr, DBI::db=HASH(0x1bd9ad0))
undef (not defined)
dbih_setup_attrib(DBI::st=HASH(0x1bd9c50), HandleError, DBI::db=HASH(0x1bd9ad0))
undef (not defined)
ignore named placeholders = 0
dbd_preparse scanned 1 distinct placeholders
SQLPrepare returned 0
dbd_st_prepare'd sql f30808592, ExecDirect=0
backup database ?
to DISK = 'C:/temp/backup_test'
with init
1 <- prepare= DBI::st=HASH(0x1bd9b54) at C:/Perl/site/lib/DBI.pm line 1410
>> execute DISPATCH (DBI::st=HASH(0x1bd9b54) rc1/1 @2 g0 ima1041 pid#344) at
C:/Perl/site/lib/DBI.pm line 1411
-> execute for DBD::ODBC::st (DBI::st=HASH(0x1bd9b54)~0x1bd9c50 'foo') thr#15d4574
bind 1 <== 'foo' (attribs: ), type 0
SQLDescribeParam idx = 1.
SQLDescribeParam failed reverting to default type for this parameter: 07009
[Microsoft][ODBC SQL Server Driver]Invalid Descriptor Index
07009 [Microsoft][ODBC SQL Server Driver]Invalid parameter number
dbd_st_execute (outparams = 0)...
bind 1 <== 'foo' (size 3/4/0, ptype 4, otype 1, sqltype 12)
bind 1 <== 'foo' (len 3/3, null 0)
bind 1: CTy=1, STy=VARCHAR, CD=80, Sc=0, VM=3.
SQLBindParameter: idx = 1: fParamType=1, name=1, fCtype=1, SQL_Type = 12,
cbColDef=80, scale=0, rgbValue = 1ae6734, cbValueMax=3, cbValue = 3
Param value = foo
rebind check char Param 1 (foo)
dbd_st_execute (for hstmt 30808592 before)...
dbd_st_execute (for hstmt 30808592 after, rc = 1)...
dbd_error: err_rc=1 rc=0 s/d/e: 30808592/30806856/30806688
dbd_error: SQL-01000 (native 4035): [Microsoft][ODBC SQL Server Driver][SQL
Server]Processed 4120 pages for database 'foo', file 'foo_Data' on file 1. (SQL-01000)
dbd_error: SQL-01000 (native 4035): [Microsoft][ODBC SQL Server Driver][SQL
Server]Processed 4120 pages for database 'foo', file 'foo_Data' on file 1. (SQL-01000)
[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 1 pages for database 'foo',
file 'foo_Log' on file 1. (SQL-01000)
dbd_error: err_rc=1 rc=0 s/d/e: 0/30806856/30806688
dbd_error: err_rc=1 rc=0 s/d/e: 0/0/30806688
dbd_st_execute getting row count
dbd_st_execute got row count -1
dbd_describe 30808592 getting num fields
Numfields == 0, SQLMoreResults == 1
01000 [Microsoft][ODBC SQL Server Driver][SQL Server]Backup or restore operation
successfully processed 4121 pages in 16.505 seconds (2.044 MB/sec).
Numfields == 0, SQLNumResultCols == 0
Numfields == 0, SQLMoreResults == 100
dbd_describe sql 30808592: num_fields=0
dbd_describe skipped (no result cols) (sql f30808592)
dbd_st_execute got no rows: resetting ACTIVE, moreResults
!! ERROR: '01000' '[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 4120
pages for database 'foo', file 'foo_Data' on file 1. (SQL-01000)
[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 1 pages for database 'foo',
file 'foo_Log' on file 1. (SQL-01000)' (err#0)
<- execute= -1 at C:/Perl/site/lib/DBI.pm line 1411
>> rows DISPATCH (DBI::st=HASH(0x1bd9b54) rc1/1 @1 g0 ima4 pid#344) at
C:/Perl/site/lib/DBI.pm line 1412
-> rows for DBD::ODBC::st (DBI::st=HASH(0x1bd9b54)~0x1bd9c50) thr#15d4574
ERROR: '01000' '[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 4120
pages for database 'foo', file 'foo_Data' on file 1. (SQL-01000)
[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 1 pages for database 'foo',
file 'foo_Log' on file 1. (SQL-01000)' (err#0)
<- rows= -1 at C:/Perl/site/lib/DBI.pm line 1412
>> DESTROY DISPATCH (DBI::st=HASH(0x1bd9b54) rc1/1 @1 g0 ima4 pid#344) at
C:/Perl/site/lib/DBD/ODBC.pm line 289
<> DESTROY ignored for outer handle DBI::st=HASH(0x1bd9b54) (inner
DBI::st=HASH(0x1bd9c50) has ref cnt 1)
>> DESTROY DISPATCH (DBI::st=HASH(0x1bd9c50) rc1/1 @1 g0 ima4 pid#344) at
C:/Perl/site/lib/DBD/ODBC.pm line 289
-> DESTROY for DBD::ODBC::st (DBI::st=HASH(0x1bd9c50)~INNER) thr#15d4574
SQLFreeStmt called, returned 0.
ERROR: '01000' '[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 4120
pages for database 'foo', file 'foo_Data' on file 1. (SQL-01000)
[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 1 pages for database 'foo',
file 'foo_Log' on file 1. (SQL-01000)' (err#0)
<- DESTROY= undef at C:/Perl/site/lib/DBD/ODBC.pm line 289
DESTROY (dbih_clearcom) (sth 0x1bd9b54, com 0x1bdc904, imp DBD::ODBC::st):
FLAGS 0x180091: COMSET Warn RaiseError PrintWarn
PARENT DBI::db=HASH(0x1bd9ad0)
KIDS 0 (0 Active)
IMP_DATA undef
NUM_OF_FIELDS 0
NUM_OF_PARAMS 1
dbih_clearcom 0x1bd9b54 (com 0x1bdc904, type 3) done.
!! ERROR: '01000' '[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 4120
pages for database 'foo', file 'foo_Data' on file 1. (SQL-01000)
[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 1 pages for database 'foo',
file 'foo_Log' on file 1. (SQL-01000)' (err#0)
<- do= -1 at ./good line 24
DBD::ODBC::db do failed: [Microsoft][ODBC SQL Server Driver][SQL Server]Processed 4120
pages for database 'foo', file 'foo_Data' on file 1. (SQL-01000)
[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 1 pages for database 'foo',
file 'foo_Log' on file 1. (SQL-01000) at ./good line 24.
>> DESTROY DISPATCH (DBI::db=HASH(0x1bd7884) rc1/1 @1 g0 ima4 pid#344)
<> DESTROY ignored for outer handle DBI::db=HASH(0x1bd7884) (inner
DBI::db=HASH(0x1bd9ad0) has ref cnt 1)
>> DESTROY DISPATCH (DBI::db=HASH(0x1bd9ad0) rc1/1 @1 g0 ima4 pid#344)
-> DESTROY for DBD::ODBC::db (DBI::db=HASH(0x1bd9ad0)~INNER) thr#15d4574
DBD::ODBC Disconnected!
ERROR: '01000' '[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 4120
pages for database 'foo', file 'foo_Data' on file 1. (SQL-01000)
[Microsoft][ODBC SQL Server Driver][SQL Server]Processed 1 pages for database 'foo',
file 'foo_Log' on file 1. (SQL-01000)' (err#0)
<- DESTROY= undef
DESTROY (dbih_clearcom) (dbh 0x1bd7884, com 0x1bdaa2c, imp DBD::ODBC::db):
FLAGS 0x180291: COMSET Warn RaiseError PrintWarn AutoCommit
PARENT DBI::dr=HASH(0x1bd78c0)
KIDS 0 (0 Active)
IMP_DATA undef
dbih_clearcom 0x1bd7884 (com 0x1bdaa2c, type 2) done.
-- DBI::END
>> disconnect_all DISPATCH (DBI::dr=HASH(0x1b54b94) rc1/3 @1 g0 ima801 pid#344) at
C:/Perl/site/lib/DBI.pm line 657 via ./good line 0
!! ERROR: '01000' CLEARED by call to disconnect_all method
-> disconnect_all for DBD::ODBC::dr (DBI::dr=HASH(0x1b54b94)~0x1bd78c0) thr#15d4574
<- disconnect_all= '' at C:/Perl/site/lib/DBI.pm line 657 via ./good line 0
! >> DESTROY DISPATCH (DBI::dr=HASH(0x1bd78c0) rc1/1 @1 g0 ima4 pid#344) during
global destruction
! -> DESTROY for DBD::ODBC::dr (DBI::dr=HASH(0x1bd78c0)~INNER) thr#15d4574
! <- DESTROY= (not implemented) during global destruction
DESTROY (dbih_clearcom) (drh 0x1b54b94, com 0x1bd927c, imp global destruction):
FLAGS 0x180215: COMSET Active Warn PrintWarn AutoCommit
PARENT undef
KIDS 0 (0 Active)
IMP_DATA undef
dbih_clearcom 0x1b54b94 (com 0x1bd927c, type 1) done.
! >> DESTROY DISPATCH (DBI::dr=HASH(0x1b54b94) rc1/1 @1 g0 ima4 pid#344) during
global destruction
! <> DESTROY for DBI::dr=HASH(0x1b54b94) ignored (inner handle gone)
