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;