Stas Bekman wrote:

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]

Reply via email to