stas 2002/07/31 09:32:40
Modified: t/response/TestApache compat2.pm
lib/Apache compat.pm
. Changes
Log:
added $r->get_remote_host to compat.pm + test
Revision Changes Path
1.20 +4 -1 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.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- compat2.pm 26 Jun 2002 16:16:58 -0000 1.19
+++ compat2.pm 31 Jul 2002 16:32:40 -0000 1.20
@@ -24,7 +24,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 50;
+ plan $r, tests => 51;
$r->send_http_header('text/plain');
@@ -192,6 +192,9 @@
ok t_cmp($time, $r->mtime, "\$r->set_last_modified(\$time)");
}
+
+ # $r->get_remote_host
+ ok $r->get_remote_host() || 1;
# Apache::Util::size_string
{
1.64 +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.63
retrieving revision 1.64
diff -u -r1.63 -r1.64
--- compat.pm 1 Jul 2002 04:55:42 -0000 1.63
+++ compat.pm 31 Jul 2002 16:32:40 -0000 1.64
@@ -200,6 +200,10 @@
shift->connection->pool->cleanup_register(@_);
}
+sub get_remote_host {
+ shift->connection->remote_host(@_);
+}
+
sub parse_args {
my($r, $string) = @_;
return () unless defined $string and $string;
1.30 +2 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- Changes 21 Jun 2002 22:35:49 -0000 1.29
+++ Changes 31 Jul 2002 16:32:40 -0000 1.30
@@ -12,6 +12,8 @@
=item 1.99_04 - June 21, 2002
+added $r->get_remote_host to compat.pm + test [Stas Bekman]
+
various APR PerlIO updates [Stas Bekman]
stop using an apr_pool_t to allocate items for the interpreter pool,