Author: byterock
Date: Mon Feb 4 13:34:07 2008
New Revision: 10683
Modified:
dbd-oracle/branches/array_inout/dbdimp.c
dbd-oracle/branches/array_inout/oci8.c
Log:
working
Modified: dbd-oracle/branches/array_inout/dbdimp.c
==============================================================================
--- dbd-oracle/branches/array_inout/dbdimp.c (original)
+++ dbd-oracle/branches/array_inout/dbdimp.c Mon Feb 4 13:34:07 2008
@@ -2632,9 +2632,9 @@
PerlIO_printf(DBILOGFP, "dbd_phs_sv_complete 1a
sv=%s\n",neatsvpv(sv,0));
PerlIO_printf(DBILOGFP, "dbd_phs_sv_complete 4
phs->alen=%d\n",phs->alen);
-
+
SvCUR_set(sv, phs->alen);
-
+
PerlIO_printf(DBILOGFP, "dbd_phs_sv_complete 1b
sv=%s\n",neatsvpv(sv,0));
*SvEND(sv) = '\0';
@@ -3139,7 +3139,7 @@
AV *av = (AV*)SvRV(sv);
I32 avlen = AvFILL(av);
PerlIO_printf(DBILOGFP, " av=%d \n",av);
-
+
/*I32 avlen = AvFILL(av);*/
for (j=0;j<=av_len(av);j++){
SV *sv2 = *av_fetch(av, j, 1);
Modified: dbd-oracle/branches/array_inout/oci8.c
==============================================================================
--- dbd-oracle/branches/array_inout/oci8.c (original)
+++ dbd-oracle/branches/array_inout/oci8.c Mon Feb 4 13:34:07 2008
@@ -499,11 +499,9 @@
if (SvTYPE(sv) == SVt_RV && SvTYPE(SvRV(sv)) == SVt_PVAV) {
- if (iter > 0)
-
- dbd_phs_avsv_complete(phs, (I32)iter-1, DBIS->debug);
-
- sv = *av_fetch((AV*)SvRV(sv), (IV)iter, 1);
+/* dbd_phs_avsv_complete(phs, (I32)iter-1, DBIS->debug);
+*/
+ sv = *av_fetch((AV*)SvRV(sv), (IV)iter, 1);
/* SV **sv_p;
AV *av = (AV*)SvRV(sv);
av_push(av,newSVpv("",0));
@@ -513,7 +511,7 @@
/* *bufpp = SvPV_nolen(*sv_p);
*bufpp = SvGROW(*sv_p, (size_t)(((phs->maxlen < 28) ?
28 : phs->maxlen)+1)/*for null);
- phs->alen = SvLEN(*sv_p); /* max buffer size now,
actual data len later
+ phs->alen = SvLEN(*sv_p); /* max buffer size now,
actual data len later
if (iter >= 0) /* finish-up handling previous element
dbd_phs_avsv_complete(phs, (I32)index-1,
DBIS->debug);
/*ok here is the rub I have to add a new values to this array*/
@@ -521,11 +519,11 @@
if (!SvOK(sv))
sv_setpv(sv,"");
- }
+ }
*bufpp = SvGROW(sv, (size_t)(((phs->maxlen < 28) ? 28 :
phs->maxlen)+1)/*for null*/);
phs->alen = SvLEN(sv); /* max buffer size now, actual data len
later */
-
+
PerlIO_printf(DBILOGFP, " bufpp is the bffer where the data is
sv=%d\n",sv);
}
