cvs commit: modperl-2.0/t/response/TestCompat request.pm

[dougm]

dougm       2002/10/21 13:18:10

  Modified:    .        Changes
               lib/Apache compat.pm
               t/response/TestCompat request.pm
  Log:
  Submitted by: geoff
  Reviewed by:  dougm
  fix post_connection compat method to behave as it did in 1.x
  
  Revision  Changes    Path
  1.54      +3 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.53
  retrieving revision 1.54
  diff -u -r1.53 -r1.54
  --- Changes   21 Oct 2002 17:58:40 -0000      1.53
  +++ Changes   21 Oct 2002 20:18:10 -0000      1.54
  @@ -10,6 +10,9 @@
   
   =item 1.99_08-dev
   
  +fix post_connection compat method to behave as it did in 1.x
  +[Geoff Young <[EMAIL PROTECTED]>]
  +
   add support for setting $r->auth_name and $r->auth_type
   [Philippe M. Chiasson <[EMAIL PROTECTED]>]
   
  
  
  
  1.69      +1 -3      modperl-2.0/lib/Apache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
  retrieving revision 1.68
  retrieving revision 1.69
  diff -u -r1.68 -r1.69
  --- compat.pm 7 Oct 2002 05:04:13 -0000       1.68
  +++ compat.pm 21 Oct 2002 20:18:10 -0000      1.69
  @@ -205,9 +205,7 @@
       shift->pool->cleanup_register(@_);
   }
   
  -sub post_connection {
  -    shift->connection->pool->cleanup_register(@_);
  -}
  +*post_connection = \&register_cleanup;
   
   sub get_remote_host {
       my($r, $type) = @_;
  
  
  
  1.2       +4 -1      modperl-2.0/t/response/TestCompat/request.pm
  
  Index: request.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestCompat/request.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- request.pm        15 Aug 2002 09:35:11 -0000      1.1
  +++ request.pm        21 Oct 2002 20:18:10 -0000      1.2
  @@ -16,7 +16,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 15;
  +    plan $r, tests => 16;
   
       $r->send_http_header('text/plain');
   
  @@ -80,6 +80,9 @@
       $r->post_connection(sub { OK });
       ok 1;
   
  +    # register_cleanup
  +    ok 1;
  +    $r->register_cleanup(sub { OK });
   
       OK;
   }