[PATCH HTML-Parser-3.05] v5.5.670 i686-linux-thread-multi

Doug MacEachern (dougm@pobox.com)
Wed, 1 Mar 2000 13:38:32 -0800 (PST) 

libwww-perl's make test bombs with thread-multi perl, bandaid below fixes.
is something that should be fixed in Perl?

--- Parser.xs~  Fri Jan 21 13:59:07 2000
+++ Parser.xs   Wed Mar  1 13:32:28 2000
@@ -141,8 +141,12 @@
 }
 
 
+#ifndef pTHX_
+#define pTHX_
+#endif
+
 static int
-magic_free_pstate(SV *sv, MAGIC *mg)
+magic_free_pstate(pTHX_ SV *sv, MAGIC *mg)
 {
   free_pstate(get_pstate_iv(sv));
   return 0;

% ithrperl -V
Summary of my perl5 (revision 5.0 version 5 subversion 670) configuration:
  Platform:
    osname=linux, osvers=2.2.7, archname=i686-linux-thread-multi
    uname='linux mojo 2.2.7 #3 smp thu may 13 13:13:23 pdt 1999 i686 unknown '
    config_args='-des -Dprefix=/usr/local/ithrperl -Dusethreads'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='cc', optimize='-O2', gccversion=egcs-2.91.66 19990314 (egcs-1.1.2 release)
    cppflags='-D_REENTRANT -fno-strict-aliasing -I/usr/local/include'
    ccflags ='-D_REENTRANT -fno-strict-aliasing -I/usr/local/include'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
    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
    libc=, 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: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT
  Built under linux
  Compiled at Mar  1 2000 09:25:46
  @INC:
    /usr/local/ithrperl/lib/5.5.670/i686-linux-thread-multi
    /usr/local/ithrperl/lib/5.5.670
    /usr/local/ithrperl/lib/site_perl/5.5.670/i686-linux-thread-multi
    /usr/local/ithrperl/lib/site_perl/5.5.670
    /usr/local/ithrperl/lib/site_perl
    .