[svn:dbd-oracle] r10692 - dbd-oracle/branches/array_inout

[byterock]

Author: byterock
Date: Tue Feb  5 04:57:19 2008
New Revision: 10692

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

Log:
final version

Modified: dbd-oracle/branches/array_inout/dbdimp.c
==============================================================================
--- dbd-oracle/branches/array_inout/dbdimp.c    (original)
+++ dbd-oracle/branches/array_inout/dbdimp.c    Tue Feb  5 04:57:19 2008
@@ -2582,8 +2582,7 @@
        dTHX;
        char *note = "";
     /* XXX doesn't check arcode for error, caller is expected to */
-    debug=15;
-
+  
     if (phs->indp == 0) {                       /* is okay      */
 
                if (phs->is_inout && phs->alen == SvLEN(sv)) {
@@ -2601,12 +2600,12 @@
                    SvPOK_only_UTF8(sv);
                }
                else {  /* shouldn't happen */
-                 debug = 2;/
-                   note = " [placeholder has no data buffer]";
+                       debug = 2;
+                       note = " [placeholder has no data buffer]";
                }
 
                if (debug >= 2)
-                   PerlIO_printf(DBILOGFP, "       out %s = %s (arcode %d, ind 
%d, len %d)%s\n",
+                   PerlIO_printf(DBILOGFP, "  out %s = %s (arcode %d, ind %d, 
len %d)%s\n",
                        phs->name, neatsvpv(sv,0), phs->arcode, phs->indp, 
phs->alen, note);
     }
     else {
@@ -2635,7 +2634,6 @@
                }
                else {
                                croak("panic dbd_phs_sv_complete: %s bad indp 
%d, arcode %d", phs->name, phs->indp, phs->arcode);
-                                       debug=0;
                        }
                }
        }
@@ -2649,7 +2647,7 @@
     dbd_phs_sv_complete(phs, sv, 0);
     if (debug >= 2)
                PerlIO_printf(DBILOGFP, " dbd_phs_avsv_complete out '%s'[%ld] = 
%s (arcode %d, ind %d, len %d)\n",
-                       phs->name, (long)index, neatsvpv(sv,0), phs->arcode, 
phs->indp, phs->alen);
+               phs->name, (long)index, neatsvpv(sv,0), phs->arcode, phs->indp, 
phs->alen);
 }