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

[byterock]

Author: byterock
Date: Fri Apr 25 07:42:09 2008
New Revision: 11139

Modified:
   dbd-oracle/trunk/dbdimp.c

Log:
patch for rt.cpan.org bug #35353

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c   (original)
+++ dbd-oracle/trunk/dbdimp.c   Fri Apr 25 07:42:09 2008
@@ -1096,7 +1096,7 @@
 {
        dTHX;
     D_imp_dbh_from_sth;
-    bool in_literal = FALSE;
+    bool in_literal = '\0';
     char in_comment = '\0';
     char *src, *start, *dest;
     phs_t phs_tpl;
@@ -1143,7 +1143,7 @@
 
        if (in_literal) {
            if (*src == in_literal)
-               in_literal = 0;
+               in_literal = '\0';
            *dest++ = *src++;
            continue;
        }
@@ -2861,7 +2861,7 @@
     D_imp_dbh_from_sth;
     sword status;
     int is_select = (imp_sth->stmt_type == OCI_STMT_SELECT);
-  
+
 
     if (debug >= 2)
           PerlIO_printf(DBILOGFP, "    dbd_st_execute %s (out%d, lob%d)...\n",
@@ -2936,15 +2936,15 @@
             imp_sth->exe_mode=OCI_COMMIT_ON_SUCCESS;
             /* we don't AutoCommit on select so LOB locators work */
         } else if(imp_sth->exe_mode!=OCI_STMT_SCROLLABLE_READONLY){
-        
+
             imp_sth->exe_mode=OCI_DEFAULT;
-        } 
+        }
 
 
-        if (debug >= 2) 
+        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);