Here's a patch (with thanks to H.Merijn Brand).
Tim.
diff -c -r10.30 DBI.xs
*** 10.30 2001/03/30 14:35:41
--- DBI.xs 2001/04/02 12:26:57
***************
*** 30,36 ****
--- 30,38 ----
#ifdef HAS_SETLINEBUF
#define PerlIO_setlinebuf(f) setlinebuf(f)
#else
+ #ifndef USE_PERLIO
#define PerlIO_setlinebuf(f) setvbuf(f, Nullch, _IOLBF, 0)
+ #endif
#endif
#endif
On Mon, Apr 02, 2001 at 10:08:38AM -0400, Geoffrey Young wrote:
> Hi Tim...
>
> I don't know if these are important:
>
> DBI.xs: In function `set_trace_file':
> DBI.xs:457: warning: passing arg 1 of `setlinebuf' from incompatible pointer
> type
> DBI.xs: In function `XS_DBI__var_FETCH':
> DBI.xs:2305: warning: passing arg 1 of `fprintf' from incompatible pointer
> type
>
>
> and from make test:
>
> t/examp.............dubious
>
> Test returned status 0 (wstat 139, 0x8b)
> test program seems to have generated a core
>
> maybe this helps?
>
> [geoff@spinnaker DBI-1.15]$ gdb perl core
> GNU gdb 19991004
> Copyright 1998 Free Software Foundation, Inc.
> GDB is free software, covered by the GNU General Public License, and you are
> welcome to change it and/or distribute copies of it under certain
> conditions.
> Type "show copying" to see the conditions.
> There is absolutely no warranty for GDB. Type "show warranty" for details.
> This GDB was configured as "i386-redhat-linux"...
> Core was generated by `/usr/bin/perl -w t/examp.t'.
> Program terminated with signal 11, Segmentation fault.
> Reading symbols from /lib/libnsl.so.1...done.
> Reading symbols from /lib/libdl.so.2...done.
> Reading symbols from /lib/libm.so.6...done.
> Reading symbols from /lib/libpthread.so.0...done.
> Reading symbols from /lib/libc.so.6...done.
> Reading symbols from /lib/libcrypt.so.1...done.
> Reading symbols from /lib/libutil.so.1...done.
> Reading symbols from /lib/ld-linux.so.2...done.
> Reading symbols from /src/DBI-1.15/blib/arch/auto/DBI/DBI.so...done.
> #0 __pthread_mutex_lock (mutex=0x0) at mutex.c:82
> 82 mutex.c: No such file or directory.
>
> --Geoff
>
> Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration:
> Platform:
> osname=linux, osvers=2.2.14-5.0, archname=i686-linux-thread-multi
> uname='linux spinnaker.laserlink.net 2.2.14-5.0 #1 tue mar 7 21:07:39
> est 2000 i686 unknown '
> config_args='-des -Dusethreads -Dprefix=/src/bleedperl -Doptimize=-g
> -Dusedevel -Dinstallusrbinperl'
> hint=recommended, useposix=true, d_sigaction=define
> usethreads=define use5005threads=undef useithreads=define
> usemultiplicity=define
> useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
> use64bitint=undef use64bitall=undef uselongdouble=undef
> Compiler:
> cc='cc', ccflags ='-D_REENTRANT -DDEBUGGING -fno-strict-aliasing
> -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
> optimize='-g',
> cppflags='-D_REENTRANT -DDEBUGGING -fno-strict-aliasing'
> ccversion='', gccversion='egcs-2.91.66 19990314/Linux (egcs-1.1.2
> release)', gccosandvers=''
> intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
> d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
> ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
> lseeksize=8
> alignbytes=4, usemymalloc=n, prototype=define
> Linker and Libraries:
> ld='cc', ldflags =' -L/usr/local/lib'
> libpth=/usr/local/lib /lib /usr/lib
> libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lpthread -lc -lposix -lcrypt
> -lutil
> perllibs=-lnsl -ldl -lm -lpthread -lc -lposix -lcrypt -lutil
> libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
> cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
>
>
> Characteristics of this binary (from libperl):
> Compile-time options: DEBUGGING MULTIPLICITY USE_ITHREADS USE_LARGE_FILES
> PERL_IMPLICIT_CONTEXT
> Locally applied patches:
> DEVEL9506
> Built under linux
> Compiled at Apr 1 2001 22:00:18
> @INC:
> /src/bleedperl/lib/5.7.0/i686-linux-thread-multi
> /src/bleedperl/lib/5.7.0
> /src/bleedperl/lib/site_perl/5.7.0/i686-linux-thread-multi
> /src/bleedperl/lib/site_perl/5.7.0
> /src/bleedperl/lib/site_perl
> .