Re: more Perl ... fun

[Peter Zelezny <zed@linux.com>]

On Fri, 8 Nov 2002 05:52:06 +0000
Lloyd Williams <binary_frog@chatcircuit.com> wrote:

> Ah, I think this is it. perl 5.8's XSUB.h defines readdir to
> PerlDir_read. If you create a my_readdir function to wrap around
> readdir before the perl includes, and call that instead of readdir, it
> doesn't segfault. If you call perl_init before the readdir in
> perl_auto_load, it doesn't segfault. This bug seems to be perl's
> fault.

iperlsys.h:#define PerlDir_read(dir)		readdir((dir))
XSUB.h:#    define readdir		PerlDir_read

Makes you wonder... Those perl headers really are macro hell.

I've settled on the attached patch. Can someone confirm that it compiles
and runs with perl 5.8.x?

-- 
Peter Zelezny.

xc194-fixperl1.diff.gz