Ah phooey. I think the params to fp_dup changed between 5.6 and 5.8 :(
I'll fix for next release. Meanwhile take a look and hack it as needed
Or just delete the line it's complaining about - it'll work well enough.
Tim.
On Tue, Jul 16, 2002 at 12:31:12PM +0200, Steffen Goeldner wrote:
> I got the following errors (WinNT, Borland):
>
> Error E2219 DBI.xs 221: Wrong number of arguments in call of macro 'fp_dup' in
>function dbi_bootinit
> Error E2188 DBI.xs 221: Expression syntax in function dbi_bootinit
>
>
> Summary of my perl5 (revision 5 version 6 subversion 1) configuration:
> Platform:
> osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
> uname=''
> config_args='undef'
> hint=recommended, useposix=true, d_sigaction=undef
> usethreads=undef use5005threads=undef useithreads=define usemultiplicity=define
> useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
> use64bitint=undef use64bitall=undef uselongdouble=undef
> Compiler:
> cc='bcc32', ccflags ='-O2 -5 -D_RTLDLL -DWIN32 -g0 -DHAVE_DES_FCRYPT -D_MT
>-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS',
> optimize='-O2 -5 -D_RTLDLL',
> cppflags='-DWIN32'
> ccversion='', gccversion='', gccosandvers=''
> intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
> d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
> ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
> alignbytes=8, usemymalloc=n, prototype=define
> Linker and Libraries:
> ld='ilink32', ldflags =' -L"F:\opt\perl\lib\CORE" -L"T:\devel\BC55\lib" -Gn'
> libpth=T:\devel\BC55\lib
> libs= import32.lib cw32mti.lib
> perllibs= import32.lib cw32mti.lib
> libc=cw32mti.lib, so=dll, useshrplib=yes, libperl=perl56.lib
> Dynamic Linking:
> dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags='-tWD'
> cccdlflags=' ', lddlflags='-Tpd -L"F:\opt\perl\lib\CORE" -L"T:\devel\BC55\lib"
>-Gn'
>
>
> Characteristics of this binary (from libperl):
> Compile-time options: MULTIPLICITY USE_ITHREADS PERL_IMPLICIT_CONTEXT
>PERL_IMPLICIT_SYS
> Built under MSWin32
> Compiled at May 23 2001 20:34:20
> %ENV:
> PERL5LIB="F:/usr/local/lib/perl"
> @INC:
> F:/usr/local/lib/perl
> F:/opt/perl/lib
> F:/opt/perl/site/lib
> .
>
>
> Steffen
> diff -bc DBI-1.29-orig/DBI.xs DBI-1.29/DBI.xs
> *** DBI-1.29-orig/DBI.xs Mon Jul 15 13:19:00 2002
> --- DBI-1.29/DBI.xs Mon Jul 15 20:32:53 2002
> ***************
> *** 218,224 ****
> DBIS->logfp = PerlIO_stderr();
> #ifdef DBI_USE_THREADS
> /* XXX the fp_dup type param is a fudge, but fp_dup doesn't use it anyway */
> ! DBIS->logfp = parent_dbis ? fp_dup(parent_dbis->logfp,'>',0) :
>PerlIO_stderr();
> #endif
> DBIS->neatsvpvlen = perl_get_sv("DBI::neat_maxlen", GV_ADDMULTI);
> if (!parent_dbis)
> --- 218,224 ----
> DBIS->logfp = PerlIO_stderr();
> #ifdef DBI_USE_THREADS
> /* XXX the fp_dup type param is a fudge, but fp_dup doesn't use it anyway */
> ! DBIS->logfp = parent_dbis ? fp_dup(parent_dbis->logfp,'>') :
>PerlIO_stderr();
> #endif
> DBIS->neatsvpvlen = perl_get_sv("DBI::neat_maxlen", GV_ADDMULTI);
> if (!parent_dbis)
> diff -bc DBI-1.29-orig/Makefile.PL DBI-1.29/Makefile.PL
> *** DBI-1.29-orig/Makefile.PL Mon Jul 15 13:19:24 2002
> --- DBI-1.29/Makefile.PL Mon Jul 15 20:25:02 2002
> ***************
> *** 256,261 ****
> --- 256,262 ----
> changes_pm = ' . File::Spec->catfile($self->{INST_LIB}, 'DBI', 'Changes.pm') . '
>
> config :: $(changes_pm)
> + $(NOOP)
>
> $(changes_pm): Changes
> $(NOECHO) $(MKPATH) $(inst_libdbi)
> Common subdirectories: DBI-1.29-orig/lib and DBI-1.29/lib
> Common subdirectories: DBI-1.29-orig/t and DBI-1.29/t
