Hi, > > On Tue, Sep 13, 2005 at 08:56:20AM +0200, Gerald Richter wrote: > > > Does that make sense Gerald? The corresponding code works > fine using > > > HTML::EmbperlObject::Execute. > > > > Yes, this makes more sense. > > > > Do you call this from the commandline or from within mod_perl? > > > > If you do it from within mod_perl, can you try it from the > command line? > > Yeah, it's from within mod_perl. Same behaviour from the commandline > though: > > calix:~$ embpexec.pl execute.html > Segmentation fault > > Attached is a tarball with a toy example that reproduces the > problem here - can you check whether it segfaults for you? >
The problem was caused because $r -> param -> filename was not correcly set when you call a Embperl::Object page inside an Embperl page, which has lead to an endless recursion. The attached patch solves the problem Gerald ** Virus checked by BB-5000 Mailfilter **
Index: epinit.c =================================================================== RCS file: /home/cvs/embperl/epinit.c,v retrieving revision 1.31 diff -r1.31 epinit.c 1425a1426 > char * fn = GetHashValueStrDup(aTHX_ pPool, pParamHV, "inputfile", > NULL) ; 1428,1429c1429,1431 < if (!r -> Param.sFilename || !*r -> Param.sFilename) < r -> Param.sFilename = GetHashValueStrDup(aTHX_ pPool, pParamHV, "inputfile", NULL) ; --- > if (fn) > r -> Param.sFilename = fn ; > ** Virus checked by BB-5000 Mailfilter **
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]