Right shutdown for DBD::Oracle

[Carsten Grohmann]

Hi DBI Developers,

I spent some time to find the root cause of a segfault in DBD::Oracle (https://github.com/perl5-dbi/DBD-Oracle/issues/65).

During running the test suite a segfault is triggered by ressource "OCIHandleFree(OCI_HTYPE_ENV)" in dr::DESTROY if a database connaction still exists. The test runs fine if the database connection is close before ($dbh->disconnect). The segfault itself occurrs in db::DESTRY (dbd_db_destroy()) because of the earlier freed ressource. From my understanding of the Oracle interface freeing the ressource "OCIHandleFree(OCI_HTYPE_ENV)" late in the destruction process is right.

Currently I'm not sure about the right DBI shutdown sequence. The documentation DBI::DBD doesn't state anything about this. I expect a top-down process, freeing open statements, shutdown the database and last shutdown the driver. In the sequence as shown with DBI_TRACE the driver is destroyed first and the database level in a later step.

Is there a way to change the shutdown sequence to destroy the database first and the driver last?

Another option would be calling dbd_db_disconnect() from dr::DESTROY but I don't have any dbh in this function.

Just for reference: DBI trace with a segfault
! >> DESTROY DISPATCH (DBI::dr=HASH(0x556494047aa0) rc1/1 @1 g2 ima10004 pid#28793) during global destruction
>> DESTROY DBI::dr=HASH(0x556494047aa0) clearing 1 CachedKids
! -> DESTROY for DBD::Oracle::dr (DBI::dr=HASH(0x556494047aa0)~INNER) thr#5564920f3010
OCIHandleFree(5564940d2480,OCI_HTYPE_ENV)=SUCCESS
! <- DESTROY= ( undef ) [1 items] during global destruction
DESTROY (dbih_clearcom) (drh 0x556494047a28, com 0x55649404b230, imp global destruction):
FLAGS 0x102215: COMSET Active Warn PrintWarn ShowErrorStatement AutoCommit
PARENT undef
KIDS 1 (1 Active)
dbih_clearcom 0x556494047a28 (com 0x55649404b230, type 1) done.
! >> DESTROY DISPATCH (DBIx::ContextualFetch::db=HASH(0x55649404e2c0) rc1/1 @1 g2 ima10004 pid#28793) during global destruction
! -> DESTROY for DBD::Oracle::db (DBIx::ContextualFetch::db=HASH(0x55649404e2c0)~INNER) thr#5564920f3010
**Segmentation fault**


Do you have any ideas / hints how I can fix this shutdown sequence?


Thank you for your support,
Carsten