[svn:dbd-oracle] r14816 - dbd-oracle/branches/TAF

[email protected] Mon, 4 Apr 2011 12:18:52 -0700 (PDT)
Newsgroups perl.dbd.oracle.changes
Message-ID <[email protected]>
Author: byterock
Date: Mon Apr  4 12:18:52 2011
New Revision: 14816

Modified:
   dbd-oracle/branches/TAF/oci8.c

Log:
Well this one is working

Modified: dbd-oracle/branches/TAF/oci8.c
==============================================================================
--- dbd-oracle/branches/TAF/oci8.c	(original)
+++ dbd-oracle/branches/TAF/oci8.c	Mon Apr  4 12:18:52 2011
@@ -1364,9 +1364,8 @@
 	strcpy((char *)cb->function,imp_dbh->taf_function);
 
 	if (dbd_verbose >= 5 ) {
-		PerlIO_printf(DBILOGFP, " In reg_taf_callback perl callback is %s\n",imp_dbh->taf_function);
+  		PerlIO_printf(DBILOGFP, " In reg_taf_callback\n");
 	}
-	imp_dbh->taf_callback = cb;
 
 /* set the context up as a pointer to the taf callback struct*/
 	tafailover.fo_ctx = cb;