Hi Stas,
Am Dienstag, 17. Februar 2004 19:51 schrieb Stas Bekman:
> > (gdb) bt
> > #0 0x40135abe in find_entry (ht=0x80baeb0, key=0x406cf229, klen=14,
> > val=0x0) at apr_hash.c:278
> > #1 0x40135c58 in apr_hash_get (ht=0x80baeb0, key=0x406cf229, klen=-1)
> > at apr_hash.c:340
> > #2 0x40143d4d in apr_pool_userdata_get (data=0xbfffe858,
> > key=0x406cf229 "APR::Pool::new", pool=0x2) at apr_pools.c:1879
>
> the pool object is bogus.
>
> > #3 0x406ce7a8 in XS_APR__Pool_DESTROY ()
> > from
> > /home/ptest2/lib/perl5/site_perl/5.8.1/i686-linux-thread-multi/auto/APR/P
> >ool/Pool.so #4 0x4042c3b9 in Perl_pp_goto ()
> > from
> > /home/ptest2/lib/perl5/5.8.1/i686-linux-thread-multi/CORE/libperl.so #5
> > 0x403f803e in Perl_runops_standard ()
>
> I've seen that one before. Can you show me a short code that I can
> reproduce this with?
Ok, here it is ( minimal and useless ):
I use './t/TEST --start-httpd' the server.
My ./t/conf/extra.last.conf.in:
######### START ##########
<Perl >
</Perl>
<Location />
SetHandler perl-script
PerlHandler +Foo
</Location>
######### END ############
without the ### lines of course. Please note that the whitespace chars are
important. If you write
<Perl >
</Perl>
it works! ( Just a newline removed )
and Foo.pm
######### START ##########
package Foo;
use mod_perl 1.99;
sub handler : method {
my ( $class, $r ) = @_ ;
return 200;
}
######### END ############
--
Boris
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
