On Thu, 25 Sep 2003, Stas Bekman wrote:
Strange, Randy says, the patch won't apply. The patch had no tabs, may be the mailer has messed it up. Here it is as an attachment.
That worked - thanks! And a quick run through has all the filter tests passing (using a sequence that failed before). However, some of the apr/pool tests fail for me:
So it doesn't prove anything yet, as it's not clear whether sub-pools were destroyed. Since the cleanup callbacks didn't run. Can you please try with this handler and post the debug prints from the error log as well. Thanks.
sub handler {
my $r = shift; plan $r, tests => 7;
# test: destroying a sub-pool before the parent pool
{
my $pp = APR::Pool->new;ok t_cmp(1, $pp->isa('APR::Pool'), "isa('APR::Pool')");
ok t_cmp(1, ancestry_count($pp),
"a new pool has one ancestor: the global pool");my $sp = $pp->new;
ok t_cmp(1, $sp->isa('APR::Pool'), "isa('APR::Pool')");
ok t_cmp(2, ancestry_count($sp),
"a subpool has 2 ancestors: the parent and global pools"); $pp->cleanup_register(\&add_cleanup, [$r, 'parent']);
$sp->cleanup_register(\&set_cleanup, [$r, 'child']); $sp->DESTROY;
$pp->DESTROY;my @notes = $r->notes->get('cleanup');
ok t_cmp(2, scalar(@notes), "should be 2 notes");
ok t_cmp('child', $notes[0]);
ok t_cmp('parent', $notes[1]); $r->notes->clear;
}return Apache::OK; }
__________________________________________________________________ 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
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
