perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/apr pool_lifetime.t
Date Wed, 06 Oct 2004 01:13:02 GMT
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;
   
  
  
  

Mime
View raw message