DBI-1.29: Wrong number of arguments in call of macro 'fp_dup'

[Steffen Goeldner]

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