dougm 02/05/25 10:49:03
Modified: lib/Apache compat.pm
t/response/TestApache compat2.pm
todo api.txt
Log:
add a compat alias for $r->post_connection
Revision Changes Path
1.55 +4 -0 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.54
retrieving revision 1.55
diff -u -r1.54 -r1.55
--- compat.pm 24 May 2002 17:50:33 -0000 1.54
+++ compat.pm 25 May 2002 17:49:03 -0000 1.55
@@ -182,6 +182,10 @@
shift->pool->cleanup_register(@_);
}
+sub post_connection {
+ shift->connection->pool->cleanup_register(@_);
+}
+
sub parse_args {
my($r, $string) = @_;
return () unless defined $string and $string;
1.13 +2 -0 modperl-2.0/t/response/TestApache/compat2.pm
Index: compat2.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat2.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- compat2.pm 24 May 2002 17:50:33 -0000 1.12
+++ compat2.pm 25 May 2002 17:49:03 -0000 1.13
@@ -233,6 +233,8 @@
t_cmp(1, Apache::Util::validate_password("dougm", $hash));
t_cmp(0, Apache::Util::validate_password("mguod", $hash));
+ $r->post_connection(sub { OK });
+
OK;
}
1.23 +0 -3 modperl-2.0/todo/api.txt
Index: api.txt
===================================================================
RCS file: /home/cvs/modperl-2.0/todo/api.txt,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- api.txt 25 May 2002 17:16:57 -0000 1.22
+++ api.txt 25 May 2002 17:49:03 -0000 1.23
@@ -89,9 +89,6 @@
$r->cgi_header_out:
anything in 1.x land actually using it?
-$r->post_connection:
-alias not implemented
-
$r->slurp_filename:
optimized version not yet implemented (compat version exists in
Apache::compat)
