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

Author: byterock
Date: Fri Oct  5 11:46:04 2012
New Revision: 15433

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

Log:
well that got it now working 100%

Modified: dbd-oracle/branches/FAN/oci8.c
==============================================================================
--- dbd-oracle/branches/FAN/oci8.c	(original)
+++ dbd-oracle/branches/FAN/oci8.c	Fri Oct  5 11:46:04 2012
@@ -1396,7 +1396,7 @@
 	XPUSHs(sv_2mortal(newRV((SV*)ha_event)));
         XPUSHs(SvRV(ctx->dbh_ref));
 	PUTBACK;
-	call_pv(ctx->function, G_DISCARD);
+	call_sv(ctx->function, G_SCALAR);
 
 }
 
@@ -1408,7 +1408,7 @@
 	sword status;
 	ha_ctx_t  *ctx = NULL;
 
-	imp_dbh->ha_ctx.function = imp_dbh->taf_function;
+	imp_dbh->ha_ctx.function = imp_dbh->ha_function;
 	imp_dbh->ha_ctx.ctx_perl = my_perl;
 	imp_dbh->ha_ctx.imp_dbh  = imp_dbh;
 	imp_dbh->ha_ctx.dbh_ref  = dbh;