[svn:dbd-oracle] r14950 - dbd-oracle/branches/FAN
[email protected] Sat, 15 Oct 2011 11:35:39 -0700 (PDT)
| Newsgroups | perl.dbd.oracle.changes |
|---|---|
| Message-ID | <[email protected]> |
Author: byterock
Date: Sat Oct 15 11:35:37 2011
New Revision: 14950
Modified:
dbd-oracle/branches/FAN/oci8.c
Log:
working
Modified: dbd-oracle/branches/FAN/oci8.c
==============================================================================
--- dbd-oracle/branches/FAN/oci8.c (original)
+++ dbd-oracle/branches/FAN/oci8.c Sat Oct 15 11:35:37 2011
@@ -1356,6 +1356,8 @@
break;
}
+PerlIO_printf(DBILOGFP, " how about this myevnetsource=o %d,INSTACE=%d",evtsource,OCI_HA_SOURCE_INSTANCE);
+
XPUSHs(sv_2mortal(newSViv(evtsource)));
XPUSHs(sv_2mortal(newSViv(evtstatus)));