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

Author: mjevans
Date: Fri Jan 18 03:46:44 2013
New Revision: 15559

Modified:
   dbd-oracle/trunk/dbdimp.c

Log:
Fix Oracle stmt handle leak introduced by last commit to sort NULL cursors out
  I think there is also a leak of a descriptor - fix to come


Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c	(original)
+++ dbd-oracle/trunk/dbdimp.c	Fri Jan 18 03:46:44 2013
@@ -2753,6 +2753,12 @@
            point in going any further if it is not executed - just return undef.
            See RT 82663 */
         if (stmt_state == OCI_STMT_STATE_INITIALIZED) {
+			OCIHandleFree_log_stat(imp_sth, (OCIStmt *)phs->desc_h,
+                                   OCI_HTYPE_STMT, status);
+			if (status != OCI_SUCCESS) {
+				oci_error(sth, imp_sth->errhp, status, "OCIHandleFree");
+                return 0;
+            }
             phs->sv = newSV(0);                 /* undef */
             return 1;
         }