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

[email protected] Mon, 9 Jan 2012 12:45:50 -0800 (PST)
Newsgroups perl.dbd.oracle.changes
Message-ID <[email protected]>
Author: yanick
Date: Mon Jan  9 12:45:46 2012
New Revision: 15079

Modified:
   dbd-oracle/trunk/Changes
   dbd-oracle/trunk/Oracle.xs
   dbd-oracle/trunk/dbdimp.c

Log:
TAF support depends on OCI_ATTR_TAF_ENABLED

Modified: dbd-oracle/trunk/Changes
==============================================================================
--- dbd-oracle/trunk/Changes	(original)
+++ dbd-oracle/trunk/Changes	Mon Jan  9 12:45:46 2012
@@ -1,5 +1,11 @@
 Revision history for DBD::Oracle
 
+1.37_00   2012-01-09
+
+ [BUG FIXES]
+ - TAF supports now conditional to presence of OCI_ATTR_TAF_ENABLED
+    [RT73798]
+
 1.37_00   2011-12-30
 
  [ENHANCEMENTS]

Modified: dbd-oracle/trunk/Oracle.xs
==============================================================================
--- dbd-oracle/trunk/Oracle.xs	(original)
+++ dbd-oracle/trunk/Oracle.xs	Mon Jan  9 12:45:46 2012
@@ -358,9 +358,13 @@
 	sword status;
 	ub4 can_taf = 0;
 	CODE:
+#ifdef OCI_ATTR_TAF_ENABLED
 	OCIAttrGet_log_stat(imp_dbh->srvhp, OCI_HTYPE_SERVER, &can_taf, NULL,
 				OCI_ATTR_TAF_ENABLED, imp_dbh->errhp, status);
 	if (status != OCI_SUCCESS) {
+# else
+    if ( 1 ) {
+# endif
 		oci_error(dbh, imp_dbh->errhp, status, "OCIAttrGet OCI_ATTR_TAF_ENABLED");
 		XSRETURN_IV(0);
 	}

Modified: dbd-oracle/trunk/dbdimp.c
==============================================================================
--- dbd-oracle/trunk/dbdimp.c	(original)
+++ dbd-oracle/trunk/dbdimp.c	Mon Jan  9 12:45:46 2012
@@ -902,8 +902,12 @@
 
     if (imp_dbh->using_taf){
 		bool	can_taf;
+        can_taf = 0;
+
+#ifdef OCI_ATTR_TAF_ENABLED
 		OCIAttrGet_log_stat(imp_dbh->srvhp, OCI_HTYPE_SERVER, &can_taf, NULL,
 				OCI_ATTR_TAF_ENABLED, imp_dbh->errhp, status);
+#endif
 
 		if (!can_taf){
 			croak("You are attempting to enable TAF on a server that is not TAF Enabled \n");