| Subject: | using more than 1 LOB in insert broken |
because enclosing hash iterator have a same position variable as
enclosed iterator
maybe only in perl 5.10
patch included
| Subject: | oci8.patch |
Index: oci8.c
===================================================================
--- oci8.c (revision 12980)
+++ oci8.c (working copy)
@@ -3468,7 +3468,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;
@@ -3648,7 +3648,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);