Randy Kobes wrote:
On Wed, 24 Sep 2003, Stas Bekman wrote: [ .. ]
Steve, can you please try replacing:
$p->destroy;
with:
$subp->destroy; $p->destroy;
I get the same failure (just making this change).
I meant the change to the minimized working version that Steve has posted:
my $p = APR::Pool->new; my $subp = $p->new; $subp->destroy; $p->destroy;
scratching the rest.
Having first re-instated Geoff's patch to get things breaking again, I've now tried running "perl t/TEST t/api/lookup_uri t/apr/pool t/filter/both_str_con_add" as before, with pool.pm patched as attached.
It sill fails :-(
- Steve
--- pool.pm.orig 2003-09-09 18:22:40.000000000 +0100
+++ pool.pm 2003-09-25 09:10:56.725294100 +0100
@@ -26,7 +26,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 13;
+ plan $r, tests => 2;
my $p = APR::Pool->new;
@@ -44,8 +44,11 @@
$subp->cleanup_register(\&set_cleanup, [$r, 'child']);
# should destroy the subpool too
+ $subp->destroy;
$p->destroy;
+ return Apache::OK;
+
my @notes = $r->notes->get('cleanup');
ok $notes[0] eq 'child';
ok $notes[1] eq 'parent';--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
