[svn:dbd-oracle] r14181 - dbd-oracle/branches/DRCP_1.25

Author: byterock
Date: Sun Jun 20 13:29:05 2010
New Revision: 14181

Modified:
   dbd-oracle/branches/DRCP_1.25/Oracle.pm
   dbd-oracle/branches/DRCP_1.25/dbdimp.c

Log:
now with pod write up

Modified: dbd-oracle/branches/DRCP_1.25/Oracle.pm
==============================================================================
--- dbd-oracle/branches/DRCP_1.25/Oracle.pm	(original)
+++ dbd-oracle/branches/DRCP_1.25/Oracle.pm	Sun Jun 20 13:29:05 2010
@@ -233,7 +233,7 @@
            $dbname=substr($dbname,0,-7);
            $attr->{ora_drcp} = 1;
         }
-        else if ($ENV{ORA_DRCP}){ 
+        elsif ($ENV{ORA_DRCP}){ 
 	   $attr->{ora_drcp} = 1;
 	}
 	

Modified: dbd-oracle/branches/DRCP_1.25/dbdimp.c
==============================================================================
--- dbd-oracle/branches/DRCP_1.25/dbdimp.c	(original)
+++ dbd-oracle/branches/DRCP_1.25/dbdimp.c	Sun Jun 20 13:29:05 2010
@@ -821,11 +821,14 @@
 						OCIHandleFree_log_stat(imp_dbh->errhp, OCI_HTYPE_ERROR,  status);
 						return 0;
 					}
+
 					OCIHandleAlloc_ok(imp_dbh->envhp, &imp_dbh->authp, OCI_HTYPE_AUTHINFO, status);
 
 				    OCIAttrSet_log_stat(imp_dbh->authp, (ub4) OCI_HTYPE_AUTHINFO,
 								&purity, (ub4) 0,(ub4) OCI_ATTR_PURITY, imp_dbh->errhp, status);
+
 					cred_type = ora_parse_uid(imp_dbh, &uid, &pwd);
+
 					OCISessionGet_log_stat(imp_dbh->envhp, imp_dbh->errhp, &imp_dbh->svchp, imp_dbh->authp,
 								imp_dbh->pool_name, (ub4)strlen((char *)imp_dbh->pool_name), status);
 
@@ -1063,6 +1066,7 @@
 			sword status;
 #ifdef ORA_OCI_112
 			OCIHandleFree_log_stat(imp_dbh->authp, OCI_HTYPE_SESSION,status);
+			OCIHandleFree_log_stat(imp_dbh->poolhp, OCI_HTYPE_SPOOL,status);
 #else
 			OCIHandleFree_log_stat(imp_dbh->seshp, OCI_HTYPE_SESSION,status);
 #endif