perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jkal...@apache.org
Subject svn commit: r1448194 - /perl/modperl/branches/httpd24/t/response/TestAPI/conn_rec.pm
Date Wed, 20 Feb 2013 14:43:10 GMT
Author: jkaluza
Date: Wed Feb 20 14:43:10 2013
New Revision: 1448194

URL: http://svn.apache.org/r1448194
Log:
* t/response/TestAPI/conn_rec.pm: Use client_ip/client_addr instead of
  remote_ip/remote_addr.

Modified:
    perl/modperl/branches/httpd24/t/response/TestAPI/conn_rec.pm

Modified: perl/modperl/branches/httpd24/t/response/TestAPI/conn_rec.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24/t/response/TestAPI/conn_rec.pm?rev=1448194&r1=1448193&r2=1448194&view=diff
==============================================================================
--- perl/modperl/branches/httpd24/t/response/TestAPI/conn_rec.pm (original)
+++ perl/modperl/branches/httpd24/t/response/TestAPI/conn_rec.pm Wed Feb 20 14:43:10 2013
@@ -32,20 +32,20 @@ sub handler {
 
     ok $c->local_addr->isa('APR::SockAddr');
 
-    ok $c->remote_addr->isa('APR::SockAddr');
+    ok $c->client_addr->isa('APR::SockAddr');
 
-    # remote_ip
+    # client_ip
     {
-        my $remote_ip_org = $c->remote_ip;
-        my $remote_ip_new = "10.10.10.255";
-        ok $remote_ip_org;
+        my $client_ip_org = $c->client_ip;
+        my $client_ip_new = "10.10.10.255";
+        ok $client_ip_org;
 
-        $c->remote_ip($remote_ip_new);
-        ok t_cmp $c->remote_ip, $remote_ip_new;
+        $c->client_ip($client_ip_new);
+        ok t_cmp $c->client_ip, $client_ip_new;
 
         # restore
-        $c->remote_ip($remote_ip_org);
-        ok t_cmp $c->remote_ip, $remote_ip_org;
+        $c->client_ip($client_ip_org);
+        ok t_cmp $c->client_ip, $client_ip_org;
     }
 
     ok $c->remote_host || 1;



Mime
View raw message