You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/10/06 03:13:02 UTC
cvs commit: modperl-2.0/t/apr pool_lifetime.t
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;