Great! I'm impressed. That was really quite obscure.
For the record, here's how I installed Time-Object following your advice
(changing the name of the two subroutines to avoid name conflicts with Perl
5.8.x)
perl -MCPAN -e 'get Time::Object'
cd /tmp/.cpan/build/Time-Object-1.00
perl -pi -e "s/init_tm/time_object_init_tm/" Object.xs
perl -pi -e "s/mini_mktime/time_object_mini_mktime/" Object.xs
perl Makefile.PL
make
make install
Thanks, WILL
----- Original Message -----
From: "Drieux" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To: "Will Glass-Husain" <[EMAIL PROTECTED]>
Cc: "Perl Beginners Mailing List" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, December 30, 2003 3:09 PM
Subject: Re: make problem with xs file (Time::Object)
>
> On Dec 29, 2003, at 11:00 AM, Will Glass-Husain wrote:
> [..]
> > P.S. In case anyone else has hit this error, this was pulled directly
> > from
> > cpan "install Time::Object".
> >
> > [EMAIL PROTECTED] Time-Object-1.00]# make
> > gcc -c -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING
> > -fno-str
> > ict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE
> > -D_FILE_OFFSET_BITS=64
> > -I/usr/include/gdbm -DPERL_POLLUTE -O2 -march=i386 -mcpu=i686 -g
> > -DVERSI
> > ON=\"1.00\" -DXS_VERSION=\"1.00\" -fPIC
> > "-I/usr/lib/perl5/5.8.0/i386-linux-thread-multi/CORE" Object.c
> > Object.xs:34: parse error before '(' token
> [..]
>
> folks are probably not going to believe what I think
> is the Problem here is a bit convoluted to try to explain.
>
> What seems to have happened in 5.8.X is that now the
> embed.h is there and it is being called out by perl.h
> and it would be really nice if there were some form of
>
> #ifndef PERL_EMB_H
> #define PERL_EMB_H
> ....
> #endif
>
> then one could modify the Makefile.PL for Time::Object
>
> 'XSPROTOARG' => ' -prototypes',
> 'DEFINE' => '-D PERL_EMB_H',
>
> and it would prevent the compiler from picking up where
> it is re-defining bouth init_tm() and mini_mktime()
>
> meatbop: 65:] grep init_tm *.h
> embed.h:#define init_tm Perl_init_tm
> embed.h:#define init_tm(a) Perl_init_tm(aTHX_ a)
> proto.h:PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm);
> meatbop: 66:] grep mini_mktime *.h
> embed.h:#define mini_mktime Perl_mini_mktime
> embed.h:#define mini_mktime(a) Perl_mini_mktime(aTHX_ a)
> proto.h:PERL_CALLCONV void Perl_mini_mktime(pTHX_ struct tm *pm);
> meatbop: 67:] pwd
> /usr/lib/perl5/5.8.1/i586-linux-thread-multi/CORE
> meatbop: 68:]
>
> so the trick is to edit the Object.xs file so that
> one commits the two tolks to being really the ones
> that are local to the code that it will be creating
>
> 1,$s/init_tm/time_object_init_tm/g
> 1,$s/mini_mktime/time_object_mini_mktime/g
>
> and now your code will not have function names that will
> get into an argument. I have cc'd matt into this, in the
> hope that he may have a better fix.
>
> ciao
> drieux
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
