[svn:dbd-oracle] r11050 - dbd-oracle/trunk

[byterock]

Author: byterock
Date: Fri Apr  4 05:12:56 2008
New Revision: 11050

Modified:
   dbd-oracle/trunk/dbdimp.c
   dbd-oracle/trunk/oci8.c

Log:
Just a quick fix to oci8.c embedded objects and one more debugging if near the 
execute method in dbdimp.c

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c   (original)
+++ dbd-oracle/trunk/dbdimp.c   Fri Apr  4 05:12:56 2008
@@ -2940,6 +2940,11 @@
             imp_sth->exe_mode=OCI_DEFAULT;
         } 
 
+
+        if (debug >= 2) 
+                       PerlIO_printf(DBILOGFP,"Statement Execute Mode is 
%d\n",imp_sth->exe_mode);
+                       
+                       
                OCIStmtExecute_log_stat(imp_sth->svchp, imp_sth->stmhp, 
imp_sth->errhp,
                                        (ub4)(is_select ? 0 : 1),
                                        0, 0, 0,(ub4)imp_sth->exe_mode,status);

Modified: dbd-oracle/trunk/oci8.c
==============================================================================
--- dbd-oracle/trunk/oci8.c     (original)
+++ dbd-oracle/trunk/oci8.c     Fri Apr  4 05:12:56 2008
@@ -1594,9 +1594,10 @@
                        {
 
                                                if 
(*element_null==OCI_IND_NULL){
+                                                       
                                                     av_push(list,  &sv_undef);
                                                } else {
-                                                       if 
(obj->element_typecode == OCI_TYPECODE_OBJECT){
+                                                       if 
(obj->element_typecode == OCI_TYPECODE_OBJECT || fld->typecode == 
OCI_TYPECODE_VARRAY || fld->typecode == OCI_TYPECODE_TABLE || fld->typecode == 
OCI_TYPECODE_NAMEDCOLLECTION){
                                                                fld->value = 
newAV();
                                                get_object (sth,fld->value, 
fbh, fld,element);
                                                                av_push(list, 
newRV_noinc((SV *) fld->value));