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

[byterock]

Author: byterock
Date: Fri Jul  4 04:51:09 2008
New Revision: 11482

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

Log:
quick change to allow for dbd_verbose or ora_verbose and added value to filed 
description on debug.

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c   (original)
+++ dbd-oracle/trunk/dbdimp.c   Fri Jul  4 04:51:09 2008
@@ -921,7 +921,7 @@
     int on = SvTRUE(valuesv);
     int cacheit = 1;
 
-    if (kl==11 && strEQ(key, "ora_verbose")) {
+    if (kl==11 && (strEQ(key, "ora_verbose") || strEQ(key, "dbd_verbose"))) {
                dbd_verbose = SvIV (valuesv);
     }
     else if (kl==10 && strEQ(key, "AutoCommit")) {
@@ -972,7 +972,7 @@
 
     /* AutoCommit FETCH via DBI */
 
-    if (kl==11 && strEQ(key, "ora_verbose")) {
+    if (kl==11 && (strEQ(key, "ora_verbose") || strEQ(key, "dbd_verbose"))) {
                retsv = newSViv (dbd_verbose);
        }
     else if (kl==10 && strEQ(key, "AutoCommit")) {
@@ -2878,7 +2878,7 @@
 
 
     if (debug >= 2 || dbd_verbose >= 2)
-          PerlIO_printf(DBILOGFP, "    dbd_st_execute %s (out%d, lob%d)...\n",
+          PerlIO_printf(DBILOGFP, "   dbd_st_execute %s (out%d, lob%d)...\n",
            oci_stmt_type_name(imp_sth->stmt_type), outparams, 
imp_sth->has_lobs);
 
 

Modified: dbd-oracle/trunk/oci8.c
==============================================================================
--- dbd-oracle/trunk/oci8.c     (original)
+++ dbd-oracle/trunk/oci8.c     Fri Jul  4 04:51:09 2008
@@ -500,9 +500,9 @@
     *indpp  = &phs->indp;
     *piecep = OCI_ONE_PIECE;
     if (DBIS->debug >= 3 || dbd_verbose >=3)
-               PerlIO_printf(DBILOGFP, "       in  '%s' [%lu,%lu]: len %2lu, 
ind %d%s\n",
+               PerlIO_printf(DBILOGFP, "       in  '%s' [%lu,%lu]: len %2lu, 
ind %d%s, value=%s\n",
                        phs->name, ul_t(iter), ul_t(index), ul_t(phs->alen), 
phs->indp,
-                       (phs->desc_h) ? " via descriptor" : "");
+                       (phs->desc_h) ? " via descriptor" : 
"",neatsvpv(phs->sv,0));
     if (!tuples_av && (index > 0 || iter > 0))
                croak(" Arrays and multiple iterations not currently supported 
by DBD::Oracle (in %d/%d)", index,iter);
     return OCI_CONTINUE;