[svn:dbd-oracle] r15430 - dbd-oracle/branches/FAN

Author: byterock
Date: Fri Oct  5 09:49:49 2012
New Revision: 15430

Modified:
   dbd-oracle/branches/FAN/dbdimp.c
   dbd-oracle/branches/FAN/dbdimp.h
   dbd-oracle/branches/FAN/oci8.c

Log:
Ok one more fix-up lets see what cooks
this time added in imp_dbh to the HA context

Modified: dbd-oracle/branches/FAN/dbdimp.c
==============================================================================
--- dbd-oracle/branches/FAN/dbdimp.c	(original)
+++ dbd-oracle/branches/FAN/dbdimp.c	Fri Oct  5 09:49:49 2012
@@ -4393,6 +4393,7 @@
 	sword	status;
 
    	ha_ctx_t *ctx = NULL;
+   	ctx->imp_dbh  = NULL;
 	ctx->function = NULL;
 	ctx->ctx_perl = NULL;
 	ctx->dbh_ref  = NULL;

Modified: dbd-oracle/branches/FAN/dbdimp.h
==============================================================================
--- dbd-oracle/branches/FAN/dbdimp.h	(original)
+++ dbd-oracle/branches/FAN/dbdimp.h	Fri Oct  5 09:49:49 2012
@@ -14,8 +14,9 @@
 
 struct ha_ctx_st {
 	PerlInterpreter *ctx_perl; /* perl context */
-	SV   *function; /* user's FAN function  */
-	SV   *dbh_ref;  /* present DBH handle */
+	SV   			*function; /* user's HA function  */
+	imp_dbh_t		*imp_dbh;
+	SV   			*dbh_ref;  /* present DBH handle */
 };
 
 

Modified: dbd-oracle/branches/FAN/oci8.c
==============================================================================
--- dbd-oracle/branches/FAN/oci8.c	(original)
+++ dbd-oracle/branches/FAN/oci8.c	Fri Oct  5 09:49:49 2012
@@ -1410,6 +1410,7 @@
 
 	imp_dbh->ha_ctx.function = imp_dbh->taf_function;
 	imp_dbh->ha_ctx.ctx_perl = my_perl;
+	imp_dbh->ha_ctx.imp_dbh  = imp_dbh;
 	imp_dbh->ha_ctx.dbh_ref  = dbh;
     ctx = &imp_dbh->ha_ctx;