[svn:dbd-oracle] r13008 - dbd-oracle/trunk

Author: byterock
Date: Mon Jul  6 12:30:36 2009
New Revision: 13008

Modified:
   dbd-oracle/trunk/oci8.c

Log:
Clean compile with small fix

Modified: dbd-oracle/trunk/oci8.c
==============================================================================
--- dbd-oracle/trunk/oci8.c	(original)
+++ dbd-oracle/trunk/oci8.c	Mon Jul  6 12:30:36 2009
@@ -433,10 +433,8 @@
 	errcode = oci_error_get(errhp, status, what, errstr_sv, DBIS->debug);
 	if (CSFORM_IMPLIES_UTF8(SQLCS_IMPLICIT)) {
 	#ifdef sv_utf8_decode
-	PerlIO_printf(DBILOGFP, "codition  1\n");
 	sv_utf8_decode(errstr_sv);
 	#else
-	PerlIO_printf(DBILOGFP, "codition  2\n");
 	SvUTF8_on(errstr_sv);
 	#endif
 	}
@@ -3484,7 +3482,7 @@
 	ub2 numcols = 0;
 	imp_fbh_t *fbh;
 	int unmatched_params;
-	I32 i;
+	I32 i,j;
 	char *p;
 	lob_refetch_t *lr = NULL;
 	STRLEN tablename_len;
@@ -3664,7 +3662,7 @@
 
 		hv_iterinit(lob_cols_hv);
 
-		while( (sv = hv_iternextsv(lob_cols_hv, &p, &i)) != NULL ) {
+		while( (sv = hv_iternextsv(lob_cols_hv, &p, &j)) != NULL ) {
 			char sql_field[200];
 			if (phs->ora_field) {	/* must match this phs by field name	*/
 				char *ora_field_name = SvPV(phs->ora_field,na);