It still fails at the same place.
OK, let's try remote debugging then. What do you get when running:
% cd modperl-1.99_11 % egrep -Ir "define Mp(Dir|Srv)_f_UNSET" src/modules/perl/modperl_flags.h
I get:
#define MpDir_f_UNSET 0x00000010 #define MpSrv_f_UNSET 0x02000000
if you don't have egrep, just grep separately for: "define MpDir_f_UNSET" and "define MpSrv_f_UNSET".
Next please apply the patch below, rebuild mod_perl with MP_TRACE=1, to enable low-level tracing:
http://perl.apache.org/docs/2.0/user/config/config.html#C_PerlTrace_
next please do:
% t/TEST -config % t/TEST -start >& out
and send the contents of the file 'out' here.
Thanks.
Index: t/conf/extra.conf.in
===================================================================
RCS file: /home/cvs/modperl-2.0/t/conf/extra.conf.in,v
retrieving revision 1.9
diff -u -r1.9 extra.conf.in
--- t/conf/extra.conf.in 15 Nov 2003 19:36:00 -0000 1.9
+++ t/conf/extra.conf.in 4 Dec 2003 00:31:13 -0000
@@ -9,6 +9,7 @@
Options Indexes FollowSymLinks IncludesNoExec
</Directory>+PerlTrace d
<Directory @ServerRoot@/htdocs/includes-registry>
SetHandler perl-script
Options +ExecCGI +IncludesNoExec
@@ -16,6 +17,7 @@
PerlOptions +ParseHeaders +GlobalRequest
AddOutputFilter INCLUDES .spl
</Directory>
+PerlTrace 0 <IfModule mod_perl.c>
<IfDefine !MODPERL2>Index: src/modules/perl/modperl_options.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_options.c,v
retrieving revision 1.10
diff -u -r1.10 modperl_options.c
--- src/modules/perl/modperl_options.c 28 Sep 2001 15:16:06 -0000 1.10
+++ src/modules/perl/modperl_options.c 4 Dec 2003 00:31:13 -0000
@@ -42,9 +42,24 @@
options->opts = options->unset =
(type == MpSrvType ? MpSrv_f_UNSET : MpDir_f_UNSET);+ MP_TRACE_d(MP_FUNC, "opts: %d", options->opts);
+
return options;
}+
+static void modperl_options_dump(modperl_options_t *o, const char *str)
+{
+ const char *type = type_lookup(o);
+ MP_TRACE_d(MP_FUNC, "option '%s', type: %s", str, type);
+ MP_TRACE_d(MP_FUNC, "opts_add %d", o->opts_add);
+ MP_TRACE_d(MP_FUNC, "opts_remove %d", o->opts_remove);
+ MP_TRACE_d(MP_FUNC, "opts_override %d", o->opts_override);
+ MP_TRACE_d(MP_FUNC, "opts_seen %d", o->opts_seen);
+ MP_TRACE_d(MP_FUNC, "unset %d\n", o->unset);
+}
+
+
const char *modperl_options_set(apr_pool_t *p, modperl_options_t *o,
const char *str)
{
@@ -56,6 +71,8 @@
action = *(str++);
}+ modperl_options_dump(o, str);
+
if (!(opt = flags_lookup(o, str))) {
error = apr_pstrcat(p, "Invalid per-", type_lookup(o),
" PerlOption: ", str, NULL);
__________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
-- Reporting bugs: http://perl.apache.org/bugs/ Mail list info: http://perl.apache.org/maillist/modperl.html
