Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: (qmail 80834 invoked from network); 6 Oct 2004 01:13:04 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur-2.apache.org with SMTP; 6 Oct 2004 01:13:04 -0000 Received: (qmail 25929 invoked by uid 500); 6 Oct 2004 01:13:04 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 25850 invoked by uid 500); 6 Oct 2004 01:13:03 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 25837 invoked by uid 500); 6 Oct 2004 01:13:03 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org X-ASF-Spam-Status: No, hits=-10.0 required=10.0 tests=ALL_TRUSTED,NO_REAL_NAME X-Spam-Check-By: apache.org Date: 6 Oct 2004 01:13:02 -0000 Message-ID: <20041006011302.80812.qmail@minotaur.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/apr pool_lifetime.t X-Virus-Checked: Checked X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N stas 2004/10/05 18:13:02 Modified: t/response/TestAPR pool_lifetime.pm t/apr pool_lifetime.t Log: fix the test and document it Revision Changes Path 1.2 +8 -9 modperl-2.0/t/response/TestAPR/pool_lifetime.pm Index: pool_lifetime.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/pool_lifetime.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -u -r1.1 -r1.2 --- pool_lifetime.pm 4 Oct 2004 00:05:24 -0000 1.1 +++ pool_lifetime.pm 6 Oct 2004 01:13:02 -0000 1.2 @@ -1,28 +1,27 @@ package TestAPR::pool_lifetime; +# this test verifies that if the perl pool object exceeds the +# life-span of the underlying pool struct we don't get segfaults + use strict; use warnings FATAL => 'all'; -use Apache::Test; -use Apache::TestUtil; -use Apache::TestTrace; - use Apache::RequestRec (); -use APR::Pool (); +use Apache::RequestIO (); use Apache::Const -compile => 'OK'; my $pool; + sub handler { my $r = shift; - + $r->print("Pong"); $pool = $r->pool; - - Apache::OK; + + Apache::OK; } 1; __END__ - PerlFixupHandler Apache::TestHandler::same_interp_fixup 1.2 +0 -1 modperl-2.0/t/apr/pool_lifetime.t Index: pool_lifetime.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/apr/pool_lifetime.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -u -r1.1 -r1.2 --- pool_lifetime.t 4 Oct 2004 00:05:24 -0000 1.1 +++ pool_lifetime.t 6 Oct 2004 01:13:02 -0000 1.2 @@ -4,7 +4,6 @@ use Apache::Test; use Apache::TestUtil; use Apache::TestRequest; -use File::Spec::Functions qw(catfile); plan tests => 2;