[PATCH] post_connection() = register_cleanup()

[Geoffrey Young]

here's a patch for the post_connection() stuff I mentioned last week. 
  I also added a test, though neither really test much.

--Geoff

Index: t/response/TestCompat/request.pm
===================================================================
RCS file: /home/cvspublic/modperl-2.0/t/response/TestCompat/request.pm,v
retrieving revision 1.1
diff -u -r1.1 request.pm
--- t/response/TestCompat/request.pm    15 Aug 2002 09:35:11 -0000 
   1.1
+++ t/response/TestCompat/request.pm    14 Oct 2002 13:13:42 -0000
@@ -16,7 +16,7 @@
  sub handler {
      my $r = shift;

-    plan $r, tests => 15;
+    plan $r, tests => 16;

      $r->send_http_header('text/plain');

@@ -78,6 +78,8 @@

      # post_connection()
      $r->post_connection(sub { OK });
+    ok 1;
+    $r->register_cleanup(sub { OK });
      ok 1;


Index: lib/Apache/compat.pm
===================================================================
RCS file: /home/cvspublic/modperl-2.0/lib/Apache/compat.pm,v
retrieving revision 1.68
diff -u -r1.68 compat.pm
--- lib/Apache/compat.pm        7 Oct 2002 05:04:13 -0000       1.68
+++ lib/Apache/compat.pm        14 Oct 2002 13:13:43 -0000
@@ -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) = @_;


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]