pradeep kumar wrote:
Hi Philppe,
I did try using mod_perl 2.0.1 and got the same "-e" in the ps output
instead of
"/PATH_TO_HTTPD -d /PATH_OF_APACHE -k start".
I'll confirm this in mp2 svn.
Here's the relevenant section in modperl_cmd.c:
{
SV *code = newSVpv(arg, 0);
GV *gv = gv_fetchpv("0", TRUE, SVt_PV);
ENTER;SAVETMPS;
save_scalar(gv); /* local $0 */
#if PERL_REVISION == 5 && PERL_VERSION >= 9
TAINT_NOT; /* XXX: temp workaround, see my p5p post */
#endif
sv_setpv_mg(GvSV(gv), directive->filename);
eval_sv(code, G_SCALAR|G_KEEPERR);
SvREFCNT_dec(code);
modperl_env_sync_srv_env_hash2table(aTHX_ p, scfg);
modperl_env_sync_dir_env_hash2table(aTHX_ p, dcfg);
FREETMPS;LEAVE;
}
Okay, now, how do I go about figuring out this XS. I've read most if not all
of the perldoc things like guts and xs etc...
Perl_gv_dump and Perl_sv_dump don't tell me too much that I can use.
Any pointers to your favorite documentation?
Me thinks that this needs to change ?
sv_setpv_mg(GvSV(gv), directive->filename);
--
END
------------------------------------------------------------
What doesn't kill us can only make us stronger.
Nothing is impossible.
Philip M. Gollucci ([EMAIL PROTECTED]) 301.254.5198
Consultant / http://p6m7g8.net/Resume/
Senior Developer / Liquidity Services, Inc.
http://www.liquidityservicesinc.com
http://www.liquidation.com
http://www.uksurplus.com
http://www.govliquidation.com
http://www.gowholesale.com
