rlip...@remotelinux.com (Rudy Lippan) wrote:
>>> There many reasons to quote. It ensures your parameters pass through to the
>>> end intact rather than are misinterpreted.
>>> Its up to you if you want to bang your head against the wall, whine or get
>>> on with your program.
>> The reasons to quote are the reasons to use parameters. And
>> I don't bang my head against the wall or whine, I simply ask
>> on this very DBD::Pg mailing list whether the inability to
>> use all arrays as parameters is due to my lack of knowledge,
>> if it's a bug in the package, a missing feature or as $DEITY
>> intended. What's your take on this?
> After reading the original post, I would suspect that the extra '\' is
> an implementation problem in DBD::Pg, but I am not convinced. What does
> a DBI->trace(9) show?
> [...]
| DBI->trace (9);
| my $DB = DBI->connect ('dbi:Pg:dbname=tim', undef, undef, { pg_enable_utf8 =>
1, PrintError => 0 }) or die (DBI->errstr ());
| my $TestOutput = $DB->selectcol_arrayref ('SELECT
LENGTH(unnest(?::TEXT[]));', {}, ['abc', 'def', 'g\hi']) or die ($DB->errstr
());
| $DB->disconnect () or die ($DB->errstr ());
| print Dumper $TestOutput;
gives about 300 lines of output:
| DBI 1.607-ithread default trace level set to 0x0/9 (pid 5653) at test.pl
line 10
| -> DBI->connect(dbi:Pg:dbname=tim, , ****, HASH(0x84318c4))
| -> DBI->install_driver(Pg) for linux perl=5.010000 pid=5653 ruid=500
euid=500
| install_driver: DBD::Pg version 2.17.1 loaded from
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBD/Pg.pm
| New 'DBI::dr' (for DBD::Pg::dr, parent='', id=undef)
| dbih_setup_handle(DBI::dr=HASH(0x85bda94)=>DBI::dr=HASH(0x85bda34),
DBD::Pg::dr, 0, Null!)
| dbih_make_com(Null!, 0, DBD::Pg::dr, 84, 0) thr#842d008
| dbih_setup_attrib(DBI::dr=HASH(0x85bda34), Err, Null!) SCALAR(0x85b6eec)
(already defined)
| dbih_setup_attrib(DBI::dr=HASH(0x85bda34), State, Null!)
SCALAR(0x85b6f2c) (already defined)
| dbih_setup_attrib(DBI::dr=HASH(0x85bda34), Errstr, Null!)
SCALAR(0x85b6f0c) (already defined)
| dbih_setup_attrib(DBI::dr=HASH(0x85bda34), TraceLevel, Null!) 0 (already
defined)
| dbih_setup_attrib(DBI::dr=HASH(0x85bda34), FetchHashKeyName, Null!)
'NAME' (already defined)
| <- install_driver= DBI::dr=HASH(0x85bda94)
| >> default_user DISPATCH (DBI::dr=HASH(0x85bda94) rc1/3 @4 g1 ima1
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 626 via at /var/tmp//test.pl line 11
| !! warn: 0 CLEARED by call to default_user method
| -> default_user in DBD::_::dr for DBD::Pg::dr
(DBI::dr=HASH(0x85bda94)~0x85bda34 undef undef HASH(0x84da28c)) thr#842d008
| <- default_user= ( undef undef ) [2 items] at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 626 via
at /var/tmp//test.pl line 11
| >> connect DISPATCH (DBI::dr=HASH(0x85bda94) rc2/3 @5 g0 ima8001
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 638
| -> connect for DBD::Pg::dr (DBI::dr=HASH(0x85bda94)~0x85bda34
'dbname=tim' undef **** HASH(0x84da28c)) thr#842d008
| New 'DBI::db' (for DBD::Pg::db, parent=DBI::dr=HASH(0x85bda34), id=undef)
| dbih_setup_handle(DBI::db=HASH(0x8646e94)=>DBI::db=HASH(0x8646de4),
DBD::Pg::db, 8511904, Null!)
| dbih_make_com(DBI::dr=HASH(0x85bda34), 845392c, DBD::Pg::db, 140, 0)
thr#842d008
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), Err, DBI::dr=HASH(0x85bda34))
SCALAR(0x8511b14) (already defined)
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), State,
DBI::dr=HASH(0x85bda34)) SCALAR(0x8511b94) (already defined)
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), Errstr,
DBI::dr=HASH(0x85bda34)) SCALAR(0x8511b54) (already defined)
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), TraceLevel,
DBI::dr=HASH(0x85bda34)) 0 (already defined)
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), FetchHashKeyName,
DBI::dr=HASH(0x85bda34)) 'NAME' (already defined)
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), HandleSetErr,
DBI::dr=HASH(0x85bda34)) undef (not defined)
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), HandleError,
DBI::dr=HASH(0x85bda34)) undef (not defined)
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), ReadOnly,
DBI::dr=HASH(0x85bda34)) undef (not defined)
| dbih_setup_attrib(DBI::db=HASH(0x8646de4), Profile,
DBI::dr=HASH(0x85bda34)) undef (not defined)
| Begin dbd_db_login
| Login connection string: (dbname=tim)
| PQconnectdb
| Connection complete
| PQstatus
| PQsetNoticeProcessor
| PQprotocolVersion
| PQserverVersion
| End dbd_db_login
| >> FETCH DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @2 g0 ima404
pid#5653) at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBD/Pg.pm line 226
via at /var/tmp//test.pl line 11
| -> FETCH for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER
'pg_server_version') thr#842d008
| Begin dbd_db_FETCH (key: pg_server_version)
| End dbd_db_FETCH_attrib
| <- FETCH= 80404 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBD/Pg.pm line 226
via at /var/tmp//test.pl line 11
| >> FETCH DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @2 g0 ima404
pid#5653) at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBD/Pg.pm line 227
via at /var/tmp//test.pl line 11
| -> FETCH for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER 'private_dbdpg')
thr#842d008
| Begin dbd_db_FETCH (key: private_dbdpg)
| End dbd_db_FETCH_attrib
| .. FETCH DBI::db=HASH(0x8646de4) 'private_dbdpg' = undef
| <- FETCH= undef at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBD/Pg.pm line 227
via at /var/tmp//test.pl line 11
| >> STORE DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @3 g0 ima41c
pid#5653) at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBD/Pg.pm line 227
via at /var/tmp//test.pl line 11
| -> STORE for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER 'private_dbdpg'
HASH(0x8646eb4)) thr#842d008
| Begin dbd_db_STORE (key: private_dbdpg newval: 1 kl:13)
| End dbd_db_STORE_attrib
| STORE DBI::db=HASH(0x8646de4) 'private_dbdpg' => HASH(0x8646eb4)
| <- STORE= 1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBD/Pg.pm line 227
via at /var/tmp//test.pl line 11
| <- connect= DBI::db=HASH(0x8646e94) at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 638
| >> STORE DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @3 g0 ima41c
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 690
| -> STORE for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER 'PrintError' 0)
thr#842d008
| Begin dbd_db_STORE (key: PrintError newval: 0 kl:10)
| End dbd_db_STORE_attrib
| STORE DBI::db=HASH(0x8646de4) 'PrintError' => 0
| <- STORE= 1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 690
| >> STORE DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @3 g0 ima41c
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 690
| -> STORE for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER 'AutoCommit' 1)
thr#842d008
| Begin dbd_db_STORE (key: AutoCommit newval: 1 kl:10)
| Begin dbd_db_commit
| Begin pg_db_rollback_commit (action: commit AutoCommit: 0 BegunWork: 0)
| Begin PGTransactionStatusType
| PQtransactionStatus
| dbd_db_commit txn_status is 0
| End pg_db_rollback_commit (result: 1)
| Setting AutoCommit to 'on' forced a commit
| End dbd_db_STORE_attrib
| <- STORE= 1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 690
| >> STORE DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @3 g0 ima41c
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 693 via at /var/tmp//test.pl line 11
| -> STORE for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER 'Username' undef)
thr#842d008
| Begin dbd_db_STORE (key: Username newval: 0 kl:8)
| End dbd_db_STORE_attrib
| STORE DBI::db=HASH(0x8646de4) 'Username' => undef
| <- STORE= 1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 693 via
at /var/tmp//test.pl line 11
| >> FETCH DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @2 g0 ima404
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 693
| <> FETCH= undef ('Username' from cache) at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 693
| >> STORE DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @3 g0 ima41c
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 693 via at /var/tmp//test.pl line 11
| -> STORE for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER "pg_enable_utf8"
1) thr#842d008
| Begin dbd_db_STORE (key: pg_enable_utf8 newval: 1 kl:14)
| End dbd_db_STORE_attrib
| <- STORE= 1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 693 via
at /var/tmp//test.pl line 11
| >> FETCH DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @2 g0 ima404
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 693
| -> FETCH for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER "pg_enable_utf8")
thr#842d008
| Begin dbd_db_FETCH (key: pg_enable_utf8)
| End dbd_db_FETCH_attrib
| <- FETCH= 1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 693
| >> connected DISPATCH (DBI::db=HASH(0x8646e94) rc1/1 @5 g0 ima5
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 699
| -> connected in DBD::_::db for DBD::Pg::db
(DBI::db=HASH(0x8646e94)~0x8646de4 'dbi:Pg:dbname=tim' undef undef
HASH(0x84318c4)) thr#842d008
| <- connected= undef at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 699
| <- connect= DBI::db=HASH(0x8646e94)
| >> STORE DISPATCH (DBI::db=HASH(0x8646de4) rc2/1 @3 g0 ima41c
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 708 via at /var/tmp//test.pl line 11
| -> STORE for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER
'dbi_connect_closure' CODE(0x8646904)) thr#842d008
| Begin dbd_db_STORE (key: dbi_connect_closure newval: 1 kl:19)
| End dbd_db_STORE_attrib
| STORE DBI::db=HASH(0x8646de4) 'dbi_connect_closure' => CODE(0x8646904)
| <- STORE= 1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 708 via
at /var/tmp//test.pl line 11
| >> selectcol_arrayref DISPATCH (DBI::db=HASH(0x8646e94) rc1/1 @4 g0
ima2001 pid#5653) at /var/tmp//test.pl line 12
| -> selectcol_arrayref in DBD::_::db for DBD::Pg::db
(DBI::db=HASH(0x8646e94)~0x8646de4 'SELECT LENGTH(unnest(?::TEXT[]));'
HASH(0x84d114c) ARRAY(0x8646f64)) thr#842d008
| >> prepare DISPATCH (DBI::db=HASH(0x8646de4) rc1/2 @3 g0 imaa201
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 1617 via at /var/tmp//test.pl line 12
| 1 -> prepare for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER 'SELECT
LENGTH(unnest(?::TEXT[]));' HASH(0x84d114c)) thr#842d008
| New 'DBI::st' (for DBD::Pg::st, parent=DBI::db=HASH(0x8646de4), id=undef)
| dbih_setup_handle(DBI::st=HASH(0x86471d4)=>DBI::st=HASH(0x8647104),
DBD::Pg::st, 8511bf4, Null!)
| dbih_make_com(DBI::db=HASH(0x8646de4), 864928c, DBD::Pg::st, 200, 0)
thr#842d008
| dbih_setup_attrib(DBI::st=HASH(0x8647104), Err, DBI::db=HASH(0x8646de4))
SCALAR(0x8511b14) (already defined)
| dbih_setup_attrib(DBI::st=HASH(0x8647104), State,
DBI::db=HASH(0x8646de4)) SCALAR(0x8511b94) (already defined)
| dbih_setup_attrib(DBI::st=HASH(0x8647104), Errstr,
DBI::db=HASH(0x8646de4)) SCALAR(0x8511b54) (already defined)
| dbih_setup_attrib(DBI::st=HASH(0x8647104), TraceLevel,
DBI::db=HASH(0x8646de4)) 0 (already defined)
| dbih_setup_attrib(DBI::st=HASH(0x8647104), FetchHashKeyName,
DBI::db=HASH(0x8646de4)) 'NAME' (already defined)
| dbih_setup_attrib(DBI::st=HASH(0x8647104), HandleSetErr,
DBI::db=HASH(0x8646de4)) undef (not defined)
| dbih_setup_attrib(DBI::st=HASH(0x8647104), HandleError,
DBI::db=HASH(0x8646de4)) undef (not defined)
| dbih_setup_attrib(DBI::st=HASH(0x8647104), ReadOnly,
DBI::db=HASH(0x8646de4)) undef (not defined)
| dbih_setup_attrib(DBI::st=HASH(0x8647104), Profile,
DBI::db=HASH(0x8646de4)) undef (not defined)
| Begin dbd_st_prepare (statement: SELECT LENGTH(unnest(?::TEXT[]));)
| Begin pg_st_split_statement
| pg_st_split_statement: (SELECT LENGTH(unnest(?::TEXT[]));)
| Created segment (SELECT LENGTH(unnest()
| Created segment (::TEXT[]));)
| Placeholder type: 1 numsegs: 2 numphs: 1
| Placeholder numbers and segments:
| PH: (1) SEG: (SELECT LENGTH(unnest()
| PH: (0) SEG: (::TEXT[]));)
| Placeholder number, fooname, id:
| #1 FOONAME: ((null))
| End pg_st_split_statement
| Immediate prepare decision: dml=1 direct=0 server_prepare=1 prepare_now=0
PGLIBVERSION=80310
| End dbd_st_prepare
| 1 <- prepare= DBI::st=HASH(0x86471d4) at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 1617 via
at /var/tmp//test.pl line 12
| >> execute DISPATCH (DBI::st=HASH(0x86471d4) rc1/1 @2 g0 ima1041
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 1619 via at /var/tmp//test.pl line 12
| -> execute for DBD::Pg::st (DBI::st=HASH(0x86471d4)~0x8647104
ARRAY(0x8646f64)) thr#842d008
| Begin dbd_bind_ph (ph_name: 1)
| Begin pg_stringify_array
| End pg_stringify_array (string: '{"abc","def","g\\\\hi"}')
| Bind (1) (type=0)
| End dbd_bind_ph (special)
| Begin dbd_st_execute
| PQexec* decision: dml=1 direct=0 server_prepare=1 numbound=0 numphs=1
default=0
| PQexecPrepared
| Begin pg_st_prepare_statement
| New statement name (dbdpg_p5653_1), oldprepare is 0
| Prepared statement (SELECT LENGTH(unnest($1::TEXT[]));)
| PQprepare
| Begin _sqlstate
| PQresultStatus
| PQresultErrorField
| End _sqlstate (imp_dbh->sqlstate: 00000)
| Begin PGTransactionStatusType
| PQtransactionStatus
| _sqlstate txn_status is 0
| End _sqlstate (status: 1)
| PQclear
| Using PQprepare: SELECT LENGTH(unnest($1::TEXT[]));
| End pg_st_prepare_statement
| PQexecPrepared item #0
| -> Value: ({"abc","def","g\\\\hi"})
| -> Length: (0)
| -> Format: (0)
| Running PQexecPrepared with (dbdpg_p5653_1)
| PQexecPrepared
| Begin _sqlstate
| PQresultStatus
| PQresultErrorField
| End _sqlstate (imp_dbh->sqlstate: 00000)
| Begin PGTransactionStatusType
| PQtransactionStatus
| _sqlstate txn_status is 0
| End _sqlstate (status: 2)
| PQnfields
| PQntuples
| Status was PGRES_TUPLES_OK, fields=1, tuples=3
| End dbd_st_execute (rows: 3)
| <- execute= 3 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 1619 via
at /var/tmp//test.pl line 12
| >> bind_col DISPATCH (DBI::st=HASH(0x86471d4) rc1/1 @3 g0 ima1
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 1624 via at /var/tmp//test.pl line 12
| -> bind_col in DBD::_::st for DBD::Pg::st
(DBI::st=HASH(0x86471d4)~0x8647104 1 SCALAR(0x8647084)) thr#842d008
| dbih_setup_fbav alloc for 1 fields
| dbih_setup_fbav now 1 fields
| dbih_sth_bind_col 1 => SCALAR(0x8647084) Null!
| <- bind_col= 1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 1624 via
at /var/tmp//test.pl line 12
| >> fetch DISPATCH (DBI::st=HASH(0x86471d4) rc1/1 @1 g0 ima0
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 1631 via at /var/tmp//test.pl line 12
| -> fetch for DBD::Pg::st (DBI::st=HASH(0x86471d4)~0x8647104) thr#842d008
| Begin dbd_st_fetch
| PQntuples
| PQftype
| Fetching field #0
| PQgetisnull
| PQgetvalue
| End dbd_st_fetch
| <- fetch= [ 3 ] row1 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 1631 via
at /var/tmp//test.pl line 12
| >> fetch DISPATCH (DBI::st=HASH(0x86471d4) rc1/1 @1 g0 ima0
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 1631 via at /var/tmp//test.pl line 12
| -> fetch for DBD::Pg::st (DBI::st=HASH(0x86471d4)~0x8647104) thr#842d008
| Begin dbd_st_fetch
| PQntuples
| Fetching field #0
| PQgetisnull
| PQgetvalue
| End dbd_st_fetch
| <- fetch= [ 3 ] row2 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 1631 via
at /var/tmp//test.pl line 12
| >> fetch DISPATCH (DBI::st=HASH(0x86471d4) rc1/1 @1 g0 ima0
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 1631 via at /var/tmp//test.pl line 12
| -> fetch for DBD::Pg::st (DBI::st=HASH(0x86471d4)~0x8647104) thr#842d008
| Begin dbd_st_fetch
| PQntuples
| Fetching field #0
| PQgetisnull
| PQgetvalue
| End dbd_st_fetch
| <- fetch= [ 5 ] row3 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 1631 via
at /var/tmp//test.pl line 12
| >> fetch DISPATCH (DBI::st=HASH(0x86471d4) rc1/1 @1 g0 ima0
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 1631 via at /var/tmp//test.pl line 12
| -> fetch for DBD::Pg::st (DBI::st=HASH(0x86471d4)~0x8647104) thr#842d008
| Begin dbd_st_fetch
| PQntuples
| Fetched the last tuple (3)
| End dbd_st_fetch (last tuple)
| <- fetch= undef row3 at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 1631 via
at /var/tmp//test.pl line 12
| >> DESTROY DISPATCH (DBI::st=HASH(0x86471d4) rc1/1 @1 g0 ima10004
pid#5653) at /var/tmp//test.pl line 12 via at /var/tmp//test.pl line 12
| <> DESTROY(DBI::st=HASH(0x86471d4)) ignored for outer handle (inner
DBI::st=HASH(0x8647104) has ref cnt 1)
| >> DESTROY DISPATCH (DBI::st=HASH(0x8647104) rc1/1 @1 g0 ima10004
pid#5653) at /var/tmp//test.pl line 12 via at /var/tmp//test.pl line 12
| -> DESTROY for DBD::Pg::st (DBI::st=HASH(0x8647104)~INNER) thr#842d008
| Begin dbd_st_destroy
| Begin pg_st_deallocate_statement
| Begin PGTransactionStatusType
| PQtransactionStatus
| txn_status is 0
| Deallocating (dbdpg_p5653_1)
| Begin _result (sql: DEALLOCATE dbdpg_p5653_1)
| PQexec
| Begin _sqlstate
| PQresultStatus
| PQresultErrorField
| End _sqlstate (imp_dbh->sqlstate: 00000)
| Begin PGTransactionStatusType
| PQtransactionStatus
| _sqlstate txn_status is 0
| End _sqlstate (status: 1)
| PQclear
| End _result
| End pg_st_deallocate_statement
| PQclear
| End dbd_st_destroy
| <- DESTROY= undef at /var/tmp//test.pl line 12 via at /var/tmp//test.pl
line 12
| DESTROY (dbih_clearcom) (sth 0x8647104, com 0x86524e4, imp DBD::Pg::st):
| FLAGS 0x180011: COMSET Warn PrintWarn
| PARENT DBI::db=HASH(0x8646de4)
| KIDS 0 (0 Active)
| NUM_OF_FIELDS 1
| NUM_OF_PARAMS 1
| dbih_clearcom 0x8647104 (com 0x86524e4, type 3) done.
|
| <- selectcol_arrayref= [ 3 3 5 ] at /var/tmp//test.pl line 12
| >> disconnect DISPATCH (DBI::db=HASH(0x8646e94) rc1/1 @1 g0 ima10c01
pid#5653) at /var/tmp//test.pl line 13
| -> disconnect for DBD::Pg::db (DBI::db=HASH(0x8646e94)~0x8646de4)
thr#842d008
| Begin dbd_db_disconnect
| Begin dbd_db_rollback
| Begin pg_db_rollback_commit (action: rollback AutoCommit: 1 BegunWork: 0)
| End pg_db_rollback_commit (result: 0)
| PQfinish
| Disconnection complete
| End dbd_db_disconnect
| <- disconnect= 1 at /var/tmp//test.pl line 13
| >> DESTROY DISPATCH (DBI::db=HASH(0x8646e94) rc1/1 @1 g0 ima10004
pid#5653)
| <> DESTROY(DBI::db=HASH(0x8646e94)) ignored for outer handle (inner
DBI::db=HASH(0x8646de4) has ref cnt 1)
| >> DESTROY DISPATCH (DBI::db=HASH(0x8646de4) rc1/1 @1 g0 ima10004
pid#5653)
| -> DESTROY for DBD::Pg::db (DBI::db=HASH(0x8646de4)~INNER) thr#842d008
| Begin dbd_db_destroy
| End dbd_db_destroy
| <- DESTROY= undef
| DESTROY (dbih_clearcom) (dbh 0x8646de4, com 0x864928c, imp DBD::Pg::db):
| FLAGS 0x180211: COMSET Warn PrintWarn AutoCommit
| PARENT DBI::dr=HASH(0x85bda34)
| KIDS 0 (0 Active)
| dbih_clearcom 0x8646de4 (com 0x864928c, type 2) done.
|
| -- DBI::END ($@: , $!: )
| >> disconnect_all DISPATCH (DBI::dr=HASH(0x85bda94) rc1/3 @1 g0 ima801
pid#5653) at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm
line 716 via at /var/tmp//test.pl line 0
| -> disconnect_all for DBD::Pg::dr (DBI::dr=HASH(0x85bda94)~0x85bda34)
thr#842d008
| Begin dbd_discon_all
| End dbd_discon_all
| <- disconnect_all= '' at
/usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/DBI.pm line 716 via
at /var/tmp//test.pl line 0
| $VAR1 = [
| 3,
| 3,
| 5
| ];
| ! >> DESTROY DISPATCH (DBI::dr=HASH(0x85bda94) rc1/1 @1 g0 ima10004
pid#5653) during global destruction
| ! <> DESTROY(DBI::dr=HASH(0x85bda94)) ignored for outer handle (inner
DBI::dr=HASH(0x85bda34) has ref cnt 1)
| ! >> DESTROY DISPATCH (DBI::dr=HASH(0x85bda34) rc1/1 @1 g0 ima10004
pid#5653) during global destruction
| ! -> DESTROY in DBD::_::common for DBD::Pg::dr
(DBI::dr=HASH(0x85bda34)~INNER) thr#842d008
| ! <- DESTROY= undef during global destruction
| DESTROY (dbih_clearcom) (drh 0x85bda34, com 0x845392c, imp global
destruction):
| FLAGS 0x100215: COMSET Active Warn PrintWarn AutoCommit
| PARENT undef
| KIDS 0 (0 Active)
| dbih_clearcom 0x85bda34 (com 0x845392c, type 1) done.
Tim
