[svn:dbd-oracle] r14939 - dbd-oracle/branches/FAN

Author: byterock
Date: Fri Sep 30 16:33:45 2011
New Revision: 14939

Modified:
   dbd-oracle/branches/FAN/dbdimp.c

Log:
chekin

Modified: dbd-oracle/branches/FAN/dbdimp.c
==============================================================================
--- dbd-oracle/branches/FAN/dbdimp.c	(original)
+++ dbd-oracle/branches/FAN/dbdimp.c	Fri Sep 30 16:33:45 2011
@@ -400,6 +400,9 @@
 	SV **	shared_dbh_priv_svp ;
 	SV *	shared_dbh_priv_sv ;
 	STRLEN	shared_dbh_len  = 0 ;
+
+PerlIO_printf(DBILOGFP,"Use threads.\n");
+
 #endif
 
 #ifdef ORA_OCI_112
@@ -586,7 +589,10 @@
     if (!imp_dbh->envhp ) {
 		SV **init_mode_sv;
 		ub4 init_mode = OCI_EVENTS|OCI_OBJECT;	/* needed for LOBs (8.0.4)	*/
-		DBD_ATTRIB_GET_IV(attr, "ora_init_mode",13, init_mode_sv, init_mode);
+		PerlIO_printf(DBILOGFP,"HA OCI_EVENTS=%d.\n", OCI_EVENTS);
+                PerlIO_printf(DBILOGFP,"HA OCI_OBJECT=%d.\n",OCI_OBJECT);
+
+                DBD_ATTRIB_GET_IV(attr, "ora_init_mode",13, init_mode_sv, init_mode);
 
 PerlIO_printf(DBILOGFP,"HA init mode=%d.\n",init_mode);
 		{