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

Author: byterock
Date: Fri Oct 28 17:42:39 2011
New Revision: 14978

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

Log:
a quick fix

Modified: dbd-oracle/branches/FAN/oci8.c
==============================================================================
--- dbd-oracle/branches/FAN/oci8.c	(original)
+++ dbd-oracle/branches/FAN/oci8.c	Fri Oct 28 17:42:39 2011
@@ -1307,8 +1307,7 @@
   dSP;
   imp_dbh_t  *imp_dbh = (imp_dbh_t*)ctx->imp_dbh;
   sword status = OCI_SUCCESS;
-  HV* ha_event;
-  AV* servers;
+
   OCIDateTime *event_ts;
   OCIServer *srvhp;
   ub4 str_len = 200;
@@ -1325,16 +1324,22 @@
   text instance_att;
   ub4  service_len;
   text service_att;
-  ub4  event_att_len; 
+  ub4  event_att_len;
   text event_att;
+  HV* ha_event;
+  AV* servers;
 
   PERL_SET_CONTEXT(ctx->ct_perl);
   ha_event = newHV();
   servers  = newAV();
 
 
-  PerlIO_printf(DBILOGFP, " event info  \n");
-       OCIAttrGet_log_stat(eventhp,  OCI_HTYPE_EVENT, (dvoid *)&source_att, 0, OCI_ATTR_HA_SOURCE, imp_dbh->errhp, status);
+
+  PUSHMARK(SP);
+
+ PerlIO_printf(DBILOGFP, " event info  \n");
+
+ OCIAttrGet_log_stat(eventhp,  OCI_HTYPE_EVENT, (dvoid *)&source_att, 0, OCI_ATTR_HA_SOURCE, imp_dbh->errhp, status);
 
  PerlIO_printf(DBILOGFP, " hacb 1 OCI_ATTR_HA_SOURCE=%d \n",source_att);
 
@@ -1431,7 +1436,6 @@
   }
 
   hv_store(ha_event,"Instances",9,newRV_noinc((SV*)servers),0);
-  PUSHMARK(SP);
   XPUSHs(sv_2mortal(newRV((SV*)ha_event)));
   PUTBACK;
   call_pv(ctx->function, G_DISCARD);