Thanks for the patch, Michael. Unfortunately, this doesn't seem to fix my problem. :(
[Tue Apr 16 19:11:47 2002] [error] [client x.x.x.x] File does not exist: /home/vhosts/linuxhelp.mirkwood.net/htdocs/perl/ It's still ignoring the Alias directive, when require'd from another file. On Tue, Apr 16, 2002 at 02:53:35PM -0500, Michael Schout babbled thus: > Date: Tue, 16 Apr 2002 14:53:35 -0500 (CDT) > From: Michael Schout <[EMAIL PROTECTED]> > To: PinkFreud <[EMAIL PROTECTED]> > Cc: [EMAIL PROTECTED] > Subject: Re: Problem with <Perl> sections in httpd.conf, mod_perl 1.26 > > On 16 Apr 2002, PinkFreud wrote: > > > I have a rather odd problem, one which I can only assume is a bug > > somewhere, due to how bizarre it is. > > > > I am attmempting to generate virtual host configs via mod_perl, using > > <Perl> sections in httpd.conf. Not all hosts will be using a /perl > > Alias, though, so I'm reading in an external config, which looks like > > the following: > > This sounds like hte problem that I suffered with for about a year, until > someone posted this patch recently to the mod_perl list that fixes the problem > for me. For me, the symptom was that *sometimes*, certain entries in <Perl> > sections would not configure, no matter what was placed in them. The patch > below fixes it for me. Try the patch below and see if the problem goes away. > I'm not sure if this patch has made it into CVS yet or not. > > Regards, > Mike > > -------------------------------------------------------------------------- > diff -ur mod_perl-1.26.orig/src/modules/perl/perl_config.c >mod_perl-1.26/src/modules/perl/perl_config.c > --- mod_perl-1.26.orig/src/modules/perl/perl_config.c Tue Jul 10 21:47:15 2001 > +++ mod_perl-1.26/src/modules/perl/perl_config.c Wed Feb 20 14:59:00 2002 > @@ -1166,6 +1166,7 @@ > char *tmpkey; > I32 tmpklen; > SV *tmpval; > + void *old_info = cmd->info; > (void)hv_iterinit(hv); > while ((tmpval = hv_iternextsv(hv, &tmpkey, &tmpklen))) { > char line[MAX_STRING_LEN]; > @@ -1195,6 +1196,7 @@ > if(errmsg) > log_printf(cmd->server, "<Perl>: %s", errmsg); > } > + cmd->info = old_info; > /* Emulate the handling of end token for the section */ > perl_set_config_vectors(cmd, cfg, &core_module); > } > @@ -1511,9 +1513,7 @@ > void *dummy = perl_set_config_vectors(cmd, config, &core_module); > void *old_info = cmd->info; > > - if (strstr(key, "Match")) { > - cmd->info = (void*)key; > - } > + cmd->info = (void*)strstr(key,"Match"); > > if(strnEQ(key, "Location", 8)) > perl_urlsection(cmd, dummy, hv); > -------------------------------------------------------------------------- > > -- Mike Edwards Brainbench certified Master Linux Administrator http://www.brainbench.com/transcript.jsp?pid=158188 ----------------------------------- Unsolicited advertisments to this address are not welcome.