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 Changes
Date Wed, 31 Jul 2002 16:32:40 GMT
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,
  
  
  

Mime
View raw message