Thanks. I've already got that fixed up (thanks mostly to patches sent earlier). The real problem is that I've not got round to making a release. I will be trying to make a release within a week or so.
Tim. On Thu, Oct 10, 2002 at 05:47:29PM -0500, Stephen Clouse wrote: > On Thu, Oct 10, 2002 at 04:36:19PM -0500, Stephen Clouse wrote: > > > oci8.c:1591: warning: passing arg 1 of `fprintf' from incompatible pointer type > > > > That's a warning, not a fatal error. > > Although, speaking of those warnings...Tim, have you tried a high-level trace > with DBD::Oracle lately? Yeeeeeeeouch. I tried debugging some fun LOB code in > our program today and got a nice surprise (you can probably guess what). > > I assume this was just an oversight? Or perhaps this needs to be #ifdef'd to > work with an older DBI? I don't know if the PerlIO change occured after 1.20 > (which is the earliest DBD::Oracle claims compatibility now). > > -- > Stephen Clouse <[EMAIL PROTECTED]> > Senior Programmer, IQ Coordinator Project Lead > The IQ Group, Inc. <http://www.theiqgroup.com/> > Index: Oracle.xs > =================================================================== > RCS file: /home/cvs/patched-sources/DBD-Oracle/Oracle.xs,v > retrieving revision 1.1.1.1 > diff -u -r1.1.1.1 Oracle.xs > --- Oracle.xs 28 Feb 2002 01:06:01 -0000 1.1.1.1 > +++ Oracle.xs 10 Oct 2002 22:36:22 -0000 > @@ -66,7 +66,7 @@ > XSRETURN_IV(DBIc_NUM_FIELDS(imp_sth)); > } > if (debug >= 2) > - fprintf(DBILOGFP, " -> ora_fetch\n"); > + PerlIO_printf(DBILOGFP, " -> ora_fetch\n"); > av = dbd_st_fetch(sth, imp_sth); > if (av) { > int num_fields = AvFILL(av)+1; > @@ -76,14 +76,14 @@ > PUSHs(AvARRAY(av)[i]); > } > if (debug >= 2) > - fprintf(DBILOGFP, " <- (...) [%d items]\n", num_fields); > + PerlIO_printf(DBILOGFP, " <- (...) [%d items]\n", num_fields); > } > else { > if (debug >= 2) > - fprintf(DBILOGFP, " <- () [0 items]\n"); > + PerlIO_printf(DBILOGFP, " <- () [0 items]\n"); > } > if (debug >= 2 && SvTRUE(DBIc_ERR(imp_sth))) > - fprintf(DBILOGFP, " !! ERROR: %s %s", > + PerlIO_printf(DBILOGFP, " !! ERROR: %s %s", > neatsvpv(DBIc_ERR(imp_sth),0), neatsvpv(DBIc_ERRSTR(imp_sth),0)); > > > Index: dbdimp.c > =================================================================== > RCS file: /home/cvs/patched-sources/DBD-Oracle/dbdimp.c,v > retrieving revision 1.1.1.1 > diff -u -r1.1.1.1 dbdimp.c > --- dbdimp.c 28 Feb 2002 01:06:01 -0000 1.1.1.1 > +++ dbdimp.c 10 Oct 2002 22:36:22 -0000 > @@ -82,14 +82,14 @@ > int i; > int aidx; /* array index */ > { > - FILE *fp = DBILOGFP; > - fprintf(fp, " fbh %d: '%s'\t%s, ", > + PerlIO *fp = DBILOGFP; > + PerlIO_printf(fp, " fbh %d: '%s'\t%s, ", > i, fbh->name, (fbh->nullok) ? "NULLable" : "NO null "); > - fprintf(fp, "otype %3d->%3d, dbsize %ld/%ld, p%d.s%d\n", > + PerlIO_printf(fp, "otype %3d->%3d, dbsize %ld/%ld, p%d.s%d\n", > fbh->dbtype, fbh->ftype, (long)fbh->dbsize,(long)fbh->disize, > fbh->prec, fbh->scale); > if (fbh->fb_ary) { > - fprintf(fp, " out: ftype %d, bufl %d. indp %d, rlen %d, rcode %d\n", > + PerlIO_printf(fp, " out: ftype %d, bufl %d. indp %d, rlen %d, rcode %d\n", > fbh->ftype, fbh->fb_ary->bufl, fbh->fb_ary->aindp[aidx], > fbh->fb_ary->arlen[aidx], fbh->fb_ary->arcode[aidx]); > } > @@ -324,7 +324,7 @@ > warn("dbd_db_login: sigaction errno %d, handler %lx, flags %lx", > errno,act.sa_handler,act.sa_flags); > if (DBIS->debug >= 2) > - fprintf(DBILOGFP, " dbd_db_login: set SA_RESTART on Oracle SIGCLD >handler.\n"); > + PerlIO_printf(DBILOGFP, " dbd_db_login: set SA_RESTART on Oracle >SIGCLD handler.\n"); > } > } > #endif /* HAS_SIGACTION */ > @@ -664,7 +664,7 @@ > if (imp_sth->all_params_hv) { > DBIc_NUM_PARAMS(imp_sth) = (int)HvKEYS(imp_sth->all_params_hv); > if (DBIS->debug >= 2) > - fprintf(DBILOGFP, " dbd_preparse scanned %d distinct placeholders\n", > + PerlIO_printf(DBILOGFP, " dbd_preparse scanned %d distinct >placeholders\n", > (int)DBIc_NUM_PARAMS(imp_sth)); > } > } > @@ -780,12 +780,12 @@ > > if (DBIS->debug >= 2) { > char *val = neatsvpv(phs->sv,0); > - fprintf(DBILOGFP, " bind %s <== %.1000s (", phs->name, val); > + PerlIO_printf(DBILOGFP, " bind %s <== %.1000s (", phs->name, val); > if (!SvOK(phs->sv)) > - fprintf(DBILOGFP, "NULL, "); > - fprintf(DBILOGFP, "size %ld/%ld/%ld, ", > + PerlIO_printf(DBILOGFP, "NULL, "); > + PerlIO_printf(DBILOGFP, "size %ld/%ld/%ld, ", > (long)SvCUR(phs->sv),(long)SvLEN(phs->sv),phs->maxlen); > - fprintf(DBILOGFP, "ptype %d, otype %d%s)\n", > + PerlIO_printf(DBILOGFP, "ptype %d, otype %d%s)\n", > (int)SvTYPE(phs->sv), phs->ftype, > (phs->is_inout) ? ", inout" : ""); > } > @@ -848,7 +848,7 @@ > #endif > > if (DBIS->debug >= 3) { > - fprintf(DBILOGFP, " bind %s <== '%.*s' (size %ld/%ld, otype %d, indp %d, >at_exec %d)\n", > + PerlIO_printf(DBILOGFP, " bind %s <== '%.*s' (size %ld/%ld, otype %d, >indp %d, at_exec %d)\n", > phs->name, > (int)(phs->alen>SvIV(DBIS->neatsvpvlen) ? SvIV(DBIS->neatsvpvlen) : >phs->alen), > (phs->progv) ? phs->progv : "", > @@ -874,7 +874,7 @@ > sword status; > > if (dbis->debug >= 3) > - fprintf(DBILOGFP, " pp_rebind_ph_rset_in: BEGIN\n calling >OCIBindByName(stmhp=%p, bndhp=%p, errhp=%p, name=%s, csrstmhp=%p, ftype=%d)\n", >imp_sth->stmhp, phs->bndhp, imp_sth->errhp, phs->name, imp_sth_csr->stmhp, >phs->ftype); > + PerlIO_printf(DBILOGFP, " pp_rebind_ph_rset_in: BEGIN\n calling >OCIBindByName(stmhp=%p, bndhp=%p, errhp=%p, name=%s, csrstmhp=%p, ftype=%d)\n", >imp_sth->stmhp, phs->bndhp, imp_sth->errhp, phs->name, imp_sth_csr->stmhp, >phs->ftype); > > OCIBindByName_log_stat(imp_sth->stmhp, &phs->bndhp, imp_sth->errhp, > (text*)phs->name, strlen(phs->name), > @@ -892,7 +892,7 @@ > return 0; > } > if (dbis->debug >= 3) > - fprintf(DBILOGFP, " pp_rebind_ph_rset_in: END\n"); > + PerlIO_printf(DBILOGFP, " pp_rebind_ph_rset_in: END\n"); > return 2; > } > #endif > @@ -908,7 +908,7 @@ > HV *init_attr = newHV(); > int count; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s - allocating new sth...\n", phs->name); > + PerlIO_printf(DBILOGFP, " bind %s - allocating new sth...\n", >phs->name); > #ifdef OCI_V8_SYNTAX > { > sword status; > @@ -972,7 +972,7 @@ > FREETMPS; > LEAVE; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s - allocated %s...\n", > + PerlIO_printf(DBILOGFP, " bind %s - allocated %s...\n", > phs->name, neatsvpv(phs->sv, 0)); > > } > @@ -982,7 +982,7 @@ > D_impdata(imp_sth_csr, imp_sth_t, sth_csr); > > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s - initialising new %s for cursor >0x%lx...\n", > + PerlIO_printf(DBILOGFP, " bind %s - initialising new %s for cursor >0x%lx...\n", > phs->name, neatsvpv(sth_csr,0), (unsigned long)phs->progv); > > #ifdef OCI_V8_SYNTAX > @@ -1031,7 +1031,7 @@ > assert(phs->ftype == 102); > phs->out_prepost_exec = pp_exec_rset; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s to cursor (at execute)\n", phs->name); > + PerlIO_printf(DBILOGFP, " bind %s to cursor (at execute)\n", phs->name); > return 2; > } > #endif > @@ -1068,7 +1068,7 @@ > if (done != 1) { > if (done == 2) { /* the rebind did the OCI bind call itself successfully */ > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s done with ftype %d\n", > + PerlIO_printf(DBILOGFP, " bind %s done with ftype %d\n", > phs->name, phs->ftype); > return 1; > } > @@ -1129,7 +1129,7 @@ > #endif > phs->maxlen_bound = phs->maxlen ? phs->maxlen : 1; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s done with ftype %d\n", > + PerlIO_printf(DBILOGFP, " bind %s done with ftype %d\n", > phs->name, phs->ftype); > return 1; > } > @@ -1176,14 +1176,14 @@ > croak("Can't bind ``lvalue'' mode scalar as inout parameter (currently)"); > > if (DBIS->debug >= 2) { > - fprintf(DBILOGFP, " bind %s <== %s (type %ld", > + PerlIO_printf(DBILOGFP, " bind %s <== %s (type %ld", > name, neatsvpv(newvalue,0), (long)sql_type); > if (is_inout) > - fprintf(DBILOGFP, ", inout 0x%lx, maxlen %ld", > + PerlIO_printf(DBILOGFP, ", inout 0x%lx, maxlen %ld", > (long)newvalue, (long)maxlen); > if (attribs) > - fprintf(DBILOGFP, ", attribs: %s", neatsvpv(attribs,0)); > - fprintf(DBILOGFP, ")\n"); > + PerlIO_printf(DBILOGFP, ", attribs: %s", neatsvpv(attribs,0)); > + PerlIO_printf(DBILOGFP, ")\n"); > } > > phs_svp = hv_fetch(imp_sth->all_params_hv, name, name_len, 0); > @@ -1280,7 +1280,7 @@ > SvCUR_set(sv, phs->alen); > *SvEND(sv) = '\0'; > if (debug >= 2) > - fprintf(DBILOGFP, " out %s = %s (arcode %d, ind %d, len %d)\n", > + PerlIO_printf(DBILOGFP, " out %s = %s (arcode %d, ind %d, len %d)\n", > phs->name, neatsvpv(sv,0), phs->arcode, phs->indp, phs->alen); > } > else > @@ -1289,7 +1289,7 @@ > SvCUR(sv) = phs->alen; > *SvEND(sv) = '\0'; > if (debug >= 2) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " out %s = %s\t(TRUNCATED from %d to %ld, arcode %d)\n", > phs->name, neatsvpv(sv,0), phs->indp, (long)phs->alen, phs->arcode); > } > @@ -1297,7 +1297,7 @@ > if (phs->indp == -1) { /* is NULL */ > (void)SvOK_off(phs->sv); > if (debug >= 2) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " out %s = undef (NULL, arcode %d)\n", > phs->name, phs->arcode); > } > @@ -1312,7 +1312,7 @@ > SV *sv = *av_fetch(av, index, 1); > dbd_phs_sv_complete(phs, sv, 0); > if (debug >= 2) > - fprintf(DBILOGFP, " out '%s'[%ld] = %s (arcode %d, ind %d, len %d)\n", > + PerlIO_printf(DBILOGFP, " out '%s'[%ld] = %s (arcode %d, ind %d, len >%d)\n", > phs->name, (long)index, neatsvpv(sv,0), phs->arcode, phs->indp, >phs->alen); > } > > @@ -1336,7 +1336,7 @@ > int is_select = (imp_sth->stmt_type == OCI_STMT_SELECT); > > if (debug >= 2) > - fprintf(DBILOGFP, " dbd_st_execute %s (out%d, lob%d)...\n", > + PerlIO_printf(DBILOGFP, " dbd_st_execute %s (out%d, lob%d)...\n", > oci_stmt_type_name(imp_sth->stmt_type), outparams, imp_sth->has_lobs); > #else > > @@ -1346,7 +1346,7 @@ > return -2; /* dbd_describe already called ora_error() */ > } > if (debug >= 2) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " dbd_st_execute (for sql f%d after oci f%d, out%d)...\n", > imp_sth->cda->ft, imp_sth->cda->fc, outparams); > #endif > @@ -1372,7 +1372,7 @@ > else > if (SvTYPE(sv) == SVt_RV && SvTYPE(SvRV(sv)) == SVt_PVAV) { > if (debug >= 2) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " with %s = [] (len %ld/%ld, indp %d, otype %d, ptype >%d)\n", > phs->name, > (long)phs->alen, (long)phs->maxlen, phs->indp, > @@ -1396,7 +1396,7 @@ > ub2 prev_alen = phs->alen; > phs->alen = (SvOK(sv)) ? SvCUR(sv) + phs->alen_incnull : >0+phs->alen_incnull; > if (debug >= 2) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " with %s = '%.*s' (len %ld(%ld)/%ld, indp %d, otype %d, >ptype %d)\n", > phs->name, (int)phs->alen, > (phs->indp == -1) ? "" : SvPVX(sv), > @@ -1434,7 +1434,7 @@ > if (debug >= 2) { > ub2 sqlfncode; > OCIAttrGet_stmhp_stat(imp_sth, &sqlfncode, 0, OCI_ATTR_SQLFNCODE, status); > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " dbd_st_execute %s returned (%s, rpc%ld, fn%d, out%d)\n", > oci_stmt_type_name(imp_sth->stmt_type), > oci_status_name(status), > @@ -1490,7 +1490,7 @@ > row_count = imp_sth->cda->rpc; > > if (debug >= 2) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " dbd_st_execute complete (rc%d, w%02x, rpc%ld, eod%d, out%d)\n", > imp_sth->cda->rc, imp_sth->cda->wrn, > (long)row_count, imp_sth->eod_errno, > @@ -1575,7 +1575,7 @@ > #endif > > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " blob_read field %d+1, ftype %d, offset %ld, len %ld, destoffset %ld, >retlen %ld\n", > field, imp_sth->fbh[field].ftype, offset, len, destoffset, (long)retl); > > @@ -1932,15 +1932,15 @@ > > static void > dump_env_to_trace() { > - FILE *fp = DBILOGFP; > + PerlIO *fp = DBILOGFP; > int i = 0; > char *p; > #ifndef __BORLANDC__ > extern char **environ; > #endif > - fprintf(fp, "Environment variables:\n"); > + PerlIO_printf(fp, "Environment variables:\n"); > do { > p = (char*)environ[i++]; > - fprintf(fp,"\t%s\n",p); > + PerlIO_printf(fp,"\t%s\n",p); > } while ((char*)environ[i] != '\0'); > } > Index: oci7.c > =================================================================== > RCS file: /home/cvs/patched-sources/DBD-Oracle/oci7.c,v > retrieving revision 1.1.1.1 > diff -u -r1.1.1.1 oci7.c > --- oci7.c 28 Feb 2002 01:06:01 -0000 1.1.1.1 > +++ oci7.c 10 Oct 2002 22:36:22 -0000 > @@ -104,7 +104,7 @@ > #endif > if (imp_sth->cda->ft != FT_SELECT) { > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " dbd_describe skipped for non-select (sql f%d, lb %ld, csr >0x%lx)\n", > imp_sth->cda->ft, (long)long_buflen, (long)imp_sth->cda); > /* imp_sth memory was cleared when created so no setup required here */ > @@ -112,7 +112,7 @@ > } > > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " dbd_describe (for sql f%d after oci f%d, lb %ld, csr 0x%lx)...\n", > imp_sth->cda->ft, imp_sth->cda->fc, (long)long_buflen, (long)imp_sth->cda); > > @@ -283,7 +283,7 @@ > imp_sth->est_width = est_width; > > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " dbd_describe'd %d columns (Row bytes: %d max, %d est avg. Cache: %d >rows)\n", > (int)num_fields, imp_sth->t_dbsize, est_width, imp_sth->cache_rows); > > @@ -330,7 +330,7 @@ > } else { /* is simply no more data */ > sv_setiv(DBIc_ERR(imp_sth), 0); /* ensure errno set to 0 here */ > if (debug >= 3) > - fprintf(DBILOGFP, " dbd_st_fetch no-more-data, rc=%d, >rpc=%ld\n", > + PerlIO_printf(DBILOGFP, " dbd_st_fetch no-more-data, rc=%d, >rpc=%ld\n", > imp_sth->cda->rc, (long)imp_sth->cda->rpc); > } > /* further fetches without an execute will arrive back here */ > @@ -350,7 +350,7 @@ > imp_sth->next_entry = 0; > imp_sth->in_cache = imp_sth->cda->rpc - previous_rpc; > if (debug >= 4) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " dbd_st_fetch load-cache: prev rpc %d, new rpc %ld, in_cache %d\n", > previous_rpc, (long)imp_sth->cda->rpc, imp_sth->in_cache); > assert(imp_sth->in_cache > 0); > @@ -360,7 +360,7 @@ > num_fields = AvFILL(av)+1; > > if (debug >= 3) > - fprintf(DBILOGFP, " dbd_st_fetch %d fields, rpc %ld (cache: %d/%d/%d)\n", > + PerlIO_printf(DBILOGFP, " dbd_st_fetch %d fields, rpc %ld (cache: >%d/%d/%d)\n", > num_fields, (long)imp_sth->cda->rpc, imp_sth->next_entry, > imp_sth->in_cache, imp_sth->cache_rows); > > @@ -441,7 +441,7 @@ > } > > if (debug >= 5) > - fprintf(DBILOGFP, " %d (rc=%d, otype %d, len %lu): %s\n", > + PerlIO_printf(DBILOGFP, " %d (rc=%d, otype %d, len %lu): %s\n", > i, rc, fbh->dbtype, (unsigned long)datalen, neatsvpv(sv,0)); > } > > @@ -526,7 +526,7 @@ > return 0; > } > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " dbd_st_prepare'd sql f%d\n", imp_sth->cda->ft); > + PerlIO_printf(DBILOGFP, " dbd_st_prepare'd sql f%d\n", imp_sth->cda->ft); > > /* Describe and allocate storage for results. */ > if (!dbd_describe(sth, imp_sth)) { > Index: oci8.c > =================================================================== > RCS file: /home/cvs/patched-sources/DBD-Oracle/oci8.c,v > retrieving revision 1.1.1.1 > diff -u -r1.1.1.1 oci8.c > --- oci8.c 28 Feb 2002 01:06:01 -0000 1.1.1.1 > +++ oci8.c 10 Oct 2002 22:36:22 -0000 > @@ -138,7 +138,7 @@ > && recno < 100 > ) { > if (debug >= 4 || recno>1/*XXX temp*/) > - fprintf(DBILOGFP, " OCIErrorGet after %s (er%ld:%s): %d, %ld: %s\n", > + PerlIO_printf(DBILOGFP, " OCIErrorGet after %s (er%ld:%s): %d, %ld: >%s\n", > what, (long)recno, > (eg_status==OCI_SUCCESS) ? "ok" : oci_status_name(eg_status), > status, (long)eg_errcode, errbuf); > @@ -313,7 +313,7 @@ > > OCIAttrGet_stmhp_stat(imp_sth, &imp_sth->stmt_type, 0, OCI_ATTR_STMT_TYPE, >status); > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " dbd_st_prepare'd sql %s\n", > + PerlIO_printf(DBILOGFP, " dbd_st_prepare'd sql %s\n", > oci_stmt_type_name(imp_sth->stmt_type)); > > DBIc_IMPSET_on(imp_sth); > @@ -370,7 +370,7 @@ > *indpp = &phs->indp; > *piecep = OCI_ONE_PIECE; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " in '%s' [%ld,%ld]: len %2ld, ind %d%s\n", > + PerlIO_printf(DBILOGFP, " in '%s' [%ld,%ld]: len %2ld, ind %d%s\n", > phs->name, ul_t(iter), ul_t(index), ul_t(phs->alen), phs->indp, > (phs->desc_h) ? " via descriptor" : ""); > if (index > 0 || iter > 0) > @@ -452,7 +452,7 @@ > *indpp = &phs->indp; > *rcodepp= &phs->arcode; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " out '%s' [%ld,%ld]: alen %2ld, piece %d%s\n", > + PerlIO_printf(DBILOGFP, " out '%s' [%ld,%ld]: alen %2ld, piece %d%s\n", > phs->name, ul_t(iter), ul_t(index), ul_t(phs->alen), *piecep, > (phs->desc_h) ? " via descriptor" : ""); > if (iter > 0) > @@ -500,7 +500,7 @@ > HV *init_attr = newHV(); > int count; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s - allocating new sth...\n", phs->name); > + PerlIO_printf(DBILOGFP, " bind %s - allocating new sth...\n", >phs->name); > ENTER; > PUSHMARK(SP); > XPUSHs(sv_2mortal(newRV(DBIc_MY_H(imp_dbh)))); > @@ -515,7 +515,7 @@ > PUTBACK; > LEAVE; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s - allocated %s...\n", > + PerlIO_printf(DBILOGFP, " bind %s - allocated %s...\n", > phs->name, neatsvpv(phs->sv, 0)); > > } > @@ -525,7 +525,7 @@ > D_impdata(imp_sth_csr, imp_sth_t, sth_csr); > > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " bind %s - initialising new %s...\n", > + PerlIO_printf(DBILOGFP, " bind %s - initialising new %s...\n", > phs->name, neatsvpv(sth_csr,0)); > > #ifdef OCI_V8_SYNTAX > @@ -652,7 +652,7 @@ > &amtp, 1 + offset, bufp, buflen, > 0, 0, 0, SQLCS_IMPLICIT, status); > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " OCILobRead field %d %s: LOBlen %ld, LongReadLen %ld, BufLen >%ld, Got %ld\n", > fbh->field_num+1, oci_status_name(status), ul_t(loblen), > imp_sth->long_readlen, ul_t(buflen), ul_t(amtp)); > @@ -665,7 +665,7 @@ > else { > assert(amtp == 0); > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " OCILobRead field %d %s: LOBlen %ld, LongReadLen %ld, BufLen >%ld, Got %ld\n", > fbh->field_num+1, "SKIPPED", ul_t(loblen), > imp_sth->long_readlen, ul_t(buflen), ul_t(amtp)); > @@ -739,7 +739,7 @@ > OCILobRead_log_stat(imp_sth->svchp, imp_sth->errhp, lobloc, > &amtp, 1, SvPVX(dest_sv), buflen, 0, 0, 0, SQLCS_IMPLICIT, status); > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " OCILobRead field %d %s: LOBlen %ldc, LongReadLen %ldc, BufLen >%ldb, Got %ldc\n", > fbh->field_num+1, oci_status_name(status), ul_t(loblen), > imp_sth->long_readlen, ul_t(buflen), ul_t(amtp)); > @@ -752,7 +752,7 @@ > else { > assert(amtp == 0); > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " OCILobRead field %d %s: LOBlen %ld, LongReadLen %ld, BufLen >%ld, Got %ld\n", > fbh->field_num+1, "SKIPPED", ul_t(loblen), > imp_sth->long_readlen, ul_t(buflen), ul_t(amtp)); > @@ -779,7 +779,7 @@ > fbh_setup_getrefpv(imp_fbh_t *fbh, int desc_t, char *bless) > { > if (DBIS->debug >= 2) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " col %d: otype %d, desctype %d, %s", fbh->field_num, fbh->dbtype, >desc_t, bless); > fbh->ftype = fbh->dbtype; > fbh->disize = fbh->dbsize; > @@ -815,14 +815,14 @@ > > if (imp_sth->stmt_type != OCI_STMT_SELECT) { > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " dbd_describe skipped for %s\n", > + PerlIO_printf(DBILOGFP, " dbd_describe skipped for %s\n", > oci_stmt_type_name(imp_sth->stmt_type)); > /* imp_sth memory was cleared when created so no setup required here */ > return 1; > } > > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " dbd_describe %s (%s, lb %ld)...\n", > + PerlIO_printf(DBILOGFP, " dbd_describe %s (%s, lb %ld)...\n", > oci_stmt_type_name(imp_sth->stmt_type), > DBIc_ACTIVE(imp_sth) ? "implicit" : "EXPLICIT", (long)long_readlen); > > @@ -947,7 +947,7 @@ > fbh->disize = fbh->dbsize; > p = "Field %d has an Oracle type (%d) which is not explicitly >supported%s"; > if (DBIS->debug >= 1) > - fprintf(DBILOGFP, p, i, fbh->dbtype, "\n"); > + PerlIO_printf(DBILOGFP, p, i, fbh->dbtype, "\n"); > if (dowarn) > warn(p, i, fbh->dbtype, ""); > break; > @@ -1037,7 +1037,7 @@ > } > > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " dbd_describe'd %d columns (row bytes: %d max, %d est avg, cache: %d)\n", > (int)num_fields, imp_sth->t_dbsize, imp_sth->est_width, imp_sth->cache_rows); > > @@ -1070,7 +1070,7 @@ > } > else { > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " dbd_st_fetch %d fields...\n", >DBIc_NUM_FIELDS(imp_sth)); > + PerlIO_printf(DBILOGFP, " dbd_st_fetch %d fields...\n", >DBIc_NUM_FIELDS(imp_sth)); > OCIStmtFetch_log_stat(imp_sth->stmhp, imp_sth->errhp, 1, OCI_FETCH_NEXT, > OCI_DEFAULT, status); > } > @@ -1081,7 +1081,7 @@ > dTHR; /* for DBIc_ACTIVE_off */ > DBIc_ACTIVE_off(imp_sth); /* eg finish */ > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " dbd_st_fetch no-more-data\n"); > + PerlIO_printf(DBILOGFP, " dbd_st_fetch no-more-data\n"); > return Nullav; > } > if (status != OCI_SUCCESS_WITH_INFO) { > @@ -1097,7 +1097,7 @@ > av = DBIS->get_fbav(imp_sth); > > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " dbd_st_fetch %d fields %s\n", > + PerlIO_printf(DBILOGFP, " dbd_st_fetch %d fields %s\n", > num_fields, oci_status_name(status)); > > ChopBlanks = DBIc_has(imp_sth, DBIcf_ChopBlanks); > @@ -1169,7 +1169,7 @@ > } > > if (DBIS->debug >= 5) > - fprintf(DBILOGFP, " %d (rc=%d): %s\n", > + PerlIO_printf(DBILOGFP, " %d (rc=%d): %s\n", > i, rc, neatsvpv(sv,0)); > } > > @@ -1385,7 +1385,7 @@ > return oci_error(sth, errhp, status, "OCIDescribeAny/OCIAttrGet/LOB refetch"); > } > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " lob refetch from table %s, %d columns:\n", > + PerlIO_printf(DBILOGFP, " lob refetch from table %s, %d columns:\n", > tablename, numcols); > > for (i = 1; i <= (long)numcols; i++) { > @@ -1406,7 +1406,7 @@ > if (status) > break; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, " lob refetch table col %d: '%.*s' otype %d\n", > + PerlIO_printf(DBILOGFP, " lob refetch table col %d: '%.*s' otype >%d\n", > (int)i, (int)col_name_len,col_name, col_dbtype); > if (col_dbtype != SQLT_CLOB && col_dbtype != SQLT_BLOB) > continue; > @@ -1467,7 +1467,7 @@ > if (phs->ftype != SvIV(sv_other)) > continue; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " both %s and %s have type %d - ambiguous\n", > SvPV(sv,na), SvPV(sv_other,na), (int)SvIV(sv_other)); > Safefree(lr); > @@ -1480,7 +1480,7 @@ > (SvCUR(sql_select)>7)?", ":"", p, &phs->name[1]); > sv_catpv(sql_select, sql_field); > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " lob refetch %s param: otype %d, matched field '%s' %s(%s)\n", > phs->name, phs->ftype, p, > (phs->ora_field) ? "by name " : "by type ", sql_field); > @@ -1497,7 +1497,7 @@ > if (!matched) { > ++unmatched_params; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " lob refetch %s param: otype %d, UNMATCHED\n", > phs->name, phs->ftype); > } > @@ -1512,7 +1512,7 @@ > sv_catpv(sql_select, tablename); > sv_catpv(sql_select, " where rowid = :rid for update"); /* get row with lock */ > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " lob refetch sql: %s\n", SvPVX(sql_select)); > lr->sql_select = sql_select; > > @@ -1549,7 +1549,7 @@ > phs = (phs_t*)(void*)SvPVX(*phs_svp); > fbh->special = phs; > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " lob refetch %d for '%s' param: ftype %d setup\n", > (int)i+1,fbh->name, fbh->dbtype); > OCIDefineByPos_log_stat(lr->stmthp, &defnp, errhp, i+1, > @@ -1613,7 +1613,7 @@ > OCILobTrim_log_stat(imp_sth->svchp, errhp, fbh->desc_h, 0, status); > } > if (DBIS->debug >= 3) > - fprintf(DBILOGFP, > + PerlIO_printf(DBILOGFP, > " lob refetch %d for '%s' param: ftype %d, len %ld: %s %s\n", > i+1,fbh->name, fbh->dbtype, ul_t(amtp), > (amtp > 0) ? "LobWrite" : "LobTrim", oci_status_name(status)); > Index: ocitrace.h > =================================================================== > RCS file: /home/cvs/patched-sources/DBD-Oracle/ocitrace.h,v > retrieving revision 1.1.1.1 > diff -u -r1.1.1.1 ocitrace.h > --- ocitrace.h 28 Feb 2002 01:06:02 -0000 1.1.1.1 > +++ ocitrace.h 10 Oct 2002 22:36:22 -0000 > @@ -39,7 +39,7 @@ > > #define OCIAttrGet_log_stat(th,ht,ah,sp,at,eh,stat) \ > stat = OCIAttrGet(th,ht,ah,sp,at,eh); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sAttrGet(%p,%s,%p,%p,%lu,%p)=%s\n", \ > OciTp, (void*)th,oci_hdtype_name(ht),(void*)ah,pul_t(sp),ul_t(at),(void*)eh,\ > oci_status_name(stat)),stat : stat > @@ -54,14 +54,14 @@ > > #define OCIAttrSet_log_stat(th,ht,ah,s1,a,eh,stat) \ > stat=OCIAttrSet(th,ht,ah,s1,a,eh); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sAttrSet(%p,%s,%p,%lu,%lu,%p)=%s\n", \ > OciTp, (void*)th,oci_hdtype_name(ht),(void*)(ah),ul_t(s1),ul_t(a),(void*)eh, > \ > oci_status_name(stat)),stat : stat > > #define OCIBindByName_log_stat(sh,bp,eh,p1,pl,v,vs,dt,in,al,rc,mx,cu,md,stat) \ > stat=OCIBindByName(sh,bp,eh,p1,pl,v,vs,dt,in,al,rc,mx,cu,md); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sBindByName(%p,%p,%p,\"%s\",%ld,%p,%ld,%u,%p,%p,%p,%lu,%p,%lu)=%s\n",\ > OciTp, (void*)sh,(void*)bp,(void*)eh,p1,sl_t(pl),(void*)(v), \ > sl_t(vs),(ub2)(dt),(void*)(in),(ub2*)(al),(ub2*)(rc), \ > @@ -70,7 +70,7 @@ > > #define OCIBindDynamic_log(bh,eh,icx,cbi,ocx,cbo,stat) \ > stat=OCIBindDynamic(bh,eh,icx,cbi,ocx,cbo); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sBindDynamic(%p,%p,%p,%p,%p,%p)=%s\n", \ > OciTp, (void*)bh,(void*)eh,(void*)icx,(void*)cbi, \ > (void*)ocx,(void*)cbo, \ > @@ -78,7 +78,7 @@ > > #define OCIDefineByPos_log_stat(sh,dp,eh,p1,vp,vs,dt,ip,rp,cp,m,stat) \ > stat=OCIDefineByPos(sh,dp,eh,p1,vp,vs,dt,ip,rp,cp,m); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sDefineByPos(%p,%p,%p,%lu,%p,%ld,%u,%p,%p,%p,%lu)=%s\n", \ > OciTp, (void*)sh,(void*)dp,(void*)eh,ul_t((p1)),(void*)(vp), \ > sl_t(vs),(ub2)dt,(void*)(ip),(ub2*)(rp),(ub2*)(cp),ul_t(m), \ > @@ -86,41 +86,41 @@ > > #define OCIDescribeAny_log_stat(sh,eh,op,ol,opt,il,ot,dh,stat) \ > stat=OCIDescribeAny(sh,eh,op,ol,opt,il,ot,dh); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sDescribeAny(%p,%p,%p,%lu,%u,%u,%u,%p)=%s\n", \ > OciTp, (void*)sh,(void*)eh,(void*)op,ul_t(ol), \ > (ub1)opt,(ub1)il,(ub1)ot,(void*)dh, \ > oci_status_name(stat)),stat : stat > > #define OCIDescriptorAlloc_ok(envhp, p1, t) \ > - if (DBD_OCI_TRACEON) fprintf(DBD_OCI_TRACEFP, \ > + if (DBD_OCI_TRACEON) PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sDescriptorAlloc(%p,%p,%s,0,0)\n", \ > OciTp,(void*)envhp,(void*)(p1),oci_hdtype_name(t)); \ > if (OCIDescriptorAlloc((envhp), (void**)(p1), (t), 0, 0)==OCI_SUCCESS); \ > else croak("OCIDescriptorAlloc (type %ld) failed",t) > > #define OCIDescriptorFree_log(d,t) \ > - if (DBD_OCI_TRACEON) fprintf(DBD_OCI_TRACEFP, \ > + if (DBD_OCI_TRACEON) PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sDescriptorFree(%p,%s)\n", OciTp, (void*)d,oci_hdtype_name(t)); \ > OCIDescriptorFree(d,t) > > #define OCIEnvInit_log_stat(ev,md,xm,um,stat) \ > stat=OCIEnvInit(ev,md,xm,um); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sEnvInit(%p,%lu,%lu,%p)=%s\n", \ > OciTp, (void*)ev,ul_t(md),ul_t(xm),(void*)um, \ > oci_status_name(stat)),stat : stat > > #define OCIErrorGet_log_stat(hp,rn,ss,ep,bp,bs,t, stat) \ > ((stat = OCIErrorGet(hp,rn,ss,ep,bp,bs,t)), \ > - ((DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + ((DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sErrorGet(%p,%lu,\"%s\",%p,\"%s\",%lu,%lu)=%s\n", \ > OciTp, (void*)hp,ul_t(rn),OciTstr(ss),psl_t(ep), \ > bp,ul_t(bs),ul_t(t), oci_status_name(stat)),stat : stat)) > > #define OCIHandleAlloc_log_stat(ph,hp,t,xs,ump,stat) \ > stat=OCIHandleAlloc(ph,hp,t,xs,ump); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sHandleAlloc(%p,%p,%s,%lu,%p)=%s\n", \ > OciTp, (void*)ph,(void*)hp,oci_hdtype_name(t),ul_t(xs),(void*)ump, \ > oci_status_name(stat)),stat : stat > @@ -132,27 +132,27 @@ > > #define OCIHandleFree_log_stat(hp,t,stat) \ > stat=OCIHandleFree( (hp), (t)); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sHandleFree(%p,%s)=%s\n",OciTp,(void*)hp,oci_hdtype_name(t), > \ > oci_status_name(stat)),stat : stat > > #define OCIInitialize_log_stat(md,cp,mlf,rlf,mfp,stat) \ > stat=OCIInitialize(md,cp,mlf,rlf,mfp); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sInitialize(%lu,%p,%p,%p,%p)=%s\n", \ > OciTp, ul_t(md),(void*)cp,(void*)mlf,(void*)rlf,(void*)mfp, \ > oci_status_name(stat)),stat : stat > > #define OCILobGetLength_log_stat(sh,eh,lh,l,stat) \ > stat=OCILobGetLength(sh,eh,lh,l); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sLobGetLength(%p,%p,%p,%p)=%s\n", \ > OciTp, (void*)sh,(void*)eh,(void*)lh,pul_t(l), \ > oci_status_name(stat)),stat : stat > > #define OCILobRead_log_stat(sv,eh,lh,am,of,bp,bl,cx,cb,csi,csf,stat) \ > stat=OCILobRead(sv,eh,lh,am,of,bp,bl,cx,cb,csi,csf); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sLobRead(%p,%p,%p,%p,%lu,%p,%lu,%p,%p,%u,%u)=%s\n", \ > OciTp, (void*)sv,(void*)eh,(void*)lh,pul_t(am),ul_t(of), \ > (void*)bp,ul_t(bl),(void*)cx,(void*)cb,(ub2)csi,(ub1)csf, \ > @@ -160,14 +160,14 @@ > > #define OCILobTrim_log_stat(sv,eh,lh,l,stat) \ > stat=OCILobTrim(sv,eh,lh,l); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sLobTrim(%p,%p,%p,%lu)=%s\n", \ > OciTp, (void*)sv,(void*)eh,(void*)lh,ul_t(l), \ > oci_status_name(stat)),stat : stat > > #define OCILobWrite_log_stat(sv,eh,lh,am,of,bp,bl,p1,cx,cb,csi,csf,stat) \ > stat=OCILobWrite(sv,eh,lh,am,of,bp,bl,p1,cx,cb,csi,csf); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sLobWrite(%p,%p,%p,%p,%lu,%p,%lu,%u,%p,%p,%u,%u)=%s\n", \ > OciTp, (void*)sv,(void*)eh,(void*)lh,pul_t(am),ul_t(of), \ > (void*)bp,ul_t(bl),(ub1)p1, \ > @@ -176,7 +176,7 @@ > > #define OCIParamGet_log_stat(hp,ht,eh,pp,ps,stat) \ > stat=OCIParamGet(hp,ht,eh,pp,ps); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sParamGet(%p,%lu,%p,%p,%lu)=%s\n", \ > OciTp, (void*)hp,ul_t((ht)),(void*)eh,(void*)pp,ul_t(ps), \ > oci_status_name(stat)),stat : stat > @@ -184,14 +184,14 @@ > #define OCIServerAttach_log_stat(imp_dbh, dbname,stat) \ > stat=OCIServerAttach( imp_dbh->srvhp, imp_dbh->errhp, \ > (text*)dbname, strlen(dbname), 0); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sServerAttach(%p, %p, \"%s\", %d, 0)=%s\n", \ > OciTp, (void*)imp_dbh->srvhp,(void*)imp_dbh->errhp, dbname, \ > strlen(dbname), oci_status_name(stat)),stat : stat > > #define OCIStmtExecute_log_stat(sv,st,eh,i,ro,si,so,md,stat) \ > stat=OCIStmtExecute(sv,st,eh,i,ro,si,so,md); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sStmtExecute(%p,%p,%p,%lu,%lu,%p,%p,%lu)=%s\n", \ > OciTp, (void*)sv,(void*)st,(void*)eh,ul_t((i)), \ > ul_t((ro)),(void*)(si),(void*)(so),ul_t((md)), \ > @@ -199,49 +199,49 @@ > > #define OCIStmtFetch_log_stat(sh,eh,nr,or,md,stat) \ > stat=OCIStmtFetch(sh,eh,nr,or,md); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sStmtFetch(%p,%p,%lu,%u,%lu)=%s\n", \ > OciTp, (void*)sh,(void*)eh,ul_t(nr),(ub2)or,ul_t(md), \ > oci_status_name(stat)),stat : stat > > #define OCIStmtPrepare_log_stat(sh,eh,s1,sl,l,m,stat) \ > stat=OCIStmtPrepare(sh,eh,s1,sl,l,m); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sStmtPrepare(%p,%p,'%s',%lu,%lu,%lu)=%s\n", \ > OciTp, (void*)sh,(void*)eh,s1,ul_t(sl),ul_t(l),ul_t(m), \ > oci_status_name(stat)),stat : stat > > #define OCIServerDetach_log_stat(sh,eh,md,stat) \ > stat=OCIServerDetach(sh,eh,md); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sServerDetach(%p,%p,%lu)=%s\n", \ > OciTp, (void*)sh,(void*)eh,ul_t(md), \ > oci_status_name(stat)),stat : stat > > #define OCISessionBegin_log_stat(sh,eh,uh,cr,md,stat) \ > stat=OCISessionBegin(sh,eh,uh,cr,md); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sSessionBegin(%p,%p,%p,%lu,%lu)=%s\n", \ > OciTp, (void*)sh,(void*)eh,(void*)uh,ul_t(cr),ul_t(md), \ > oci_status_name(stat)),stat : stat > > #define OCISessionEnd_log_stat(sh,eh,ah,md,stat) \ > stat=OCISessionEnd(sh,eh,ah,md); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sSessionEnd(%p,%p,%p,%lu)=%s\n", \ > OciTp, (void*)sh,(void*)eh,(void*)ah,ul_t(md), \ > oci_status_name(stat)),stat : stat > > #define OCITransCommit_log_stat(sh,eh,md,stat) \ > stat=OCITransCommit(sh,eh,md); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sTransCommit(%p,%p,%lu)=%s\n", \ > OciTp, (void*)sh,(void*)eh,ul_t(md), \ > oci_status_name(stat)),stat : stat > > #define OCITransRollback_log_stat(sh,eh,md,stat) \ > stat=OCITransRollback(sh,eh,md); \ > - (DBD_OCI_TRACEON) ? fprintf(DBD_OCI_TRACEFP, \ > + (DBD_OCI_TRACEON) ? PerlIO_printf(DBD_OCI_TRACEFP, \ > "%sTransRollback(%p,%p,%lu)=%s\n", \ > OciTp, (void*)sh,(void*)eh,ul_t(md), \ > oci_status_name(stat)),stat : stat
