Hi Tim,
DBI 1.21 has a use of fprintf(DBILOGFP in DBI.xs at line 2993.
--- DBI.xs.old Wed Feb 6 19:15:42 2002
+++ DBI.xs Wed Mar 6 12:05:15 2002
@@ -2990,7 +2990,7 @@
/* default to method call via stash of implementor of DBI_LAST_HANDLE */
imp_stash = DBIc_IMP_STASH(imp_xxh);
if (DBIS->debug >= 2)
- fprintf(DBILOGFP," >> %s::%s\n", HvNAME(imp_stash), meth);
+ PerlIO_printf(DBILOGFP," >> %s::%s\n", HvNAME(imp_stash), meth);
ST(0) = DBI_LAST_HANDLE;
if ((imp_gv = gv_fetchmethod(imp_stash,meth)) == NULL) {
croak("Can't locate $DBI::%s object method \"%s\" via package \"%s\"",
There also seems to be a potential problem with the DBD_ATTRIBS_CHECK macro:
$ make DBI.o
[No write since last change]
/usr/perl/v5.7.3/bin/perl /usr/perl/v5.7.3/lib/5.7.3/ExtUtils/xsubpp -typemap
/usr/perl/v5.7.3/lib/5.7.3/ExtUtils/typemap DBI.xs > DBI.xsc && mv DBI.xsc DBI.c
gcc -c -fno-strict-aliasing -I/usr/gnu/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -O -DVERSION=\"1.21\" -DXS_VERSION=\"1.21\" -fPIC
-I/usr/perl/v5.7.3/lib/5.7.3/sun4-solaris/CORE -Wall -Wno-comment -DDBI_NO_THREADS
DBI.c
DBI.xs: In function `XS_DBD_____st_bind_col':
DBI.xs:3054: warning: operation on `PL_na' may be undefined
DBI.xs: In function `XS_DBD_____st_bind_columns':
DBI.xs:3075: warning: operation on `PL_na' may be undefined
$ prlines -n -r 3050-3080 DBI.xs
3050: SV * col
3051: SV * ref
3052: SV * attribs
3053: CODE:
3054: DBD_ATTRIBS_CHECK("bind_col", sth, attribs);
3055: ST(0) = boolSV(dbih_sth_bind_col(sth, col, ref, attribs));
3056:
3057:void
3058:bind_columns(sth, ...)
3059: SV * sth
3060: CODE:
3061: D_imp_sth(sth);
3062: SV *colsv;
3063: SV *attribs = &sv_undef;
3064: int fields = DBIc_NUM_FIELDS(imp_sth);
3065: int skip = 0;
3066: int i;
3067: if (fields <= 0 && !DBIc_ACTIVE(imp_sth))
3068: croak("Statement has no result columns to bind %s",
3069: "(perhaps you need to successfully call execute first)");
3070: ST(0) = &sv_yes;
3071: /* Backwards compatibility for old-style call with attribute hash */
3072: /* ref as first arg. Skip arg if undef or a hash ref. */
3073: if (!SvOK(ST(1)) || (SvROK(ST(1)) && SvTYPE(SvRV(ST(1)))==SVt_PVHV)) {
3074: attribs = ST(1);
3075: DBD_ATTRIBS_CHECK("bind_columns", sth, attribs);
3076: skip = 1;
3077: }
3078: if (items-(1+skip) != fields)
3079: croak("bind_columns called with %ld refs when %d needed.", items-(1+skip),
fields);
3080: colsv = sv_2mortal(newSViv(0));
$
How should I report problems building with SFIO-2000 and Perl 5.7.3? This version of
Perl 5.7.3 was built without the SFIO support and performs fine.
--
Jonathan Leffler #include <disclaimer.h>
STSM, Informix Database Engineering, IBM Data Management Solutions
Phone: +1 650-926-6921 Tie-line: 630-6921
Email: [EMAIL PROTECTED] (RIP [EMAIL PROTECTED])
Notes ID: Jonathan Leffler/Menlo Park/IBM@IBMUS
Guardian of DBD::Informix v1.00.PC2 -- http://dbi.perl.org
*=*=*=*=*=* THE END IS NIGH! *=*=*=*=*=*
Please use [EMAIL PROTECTED] because [EMAIL PROTECTED] will
not work from 2002-07-01. Expect slower responses from 2002-02-18
because email will be sent to Notes and I can't use Lotus Notes as
fast as Unix email. One day, this signature will shrink!
