perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jkal...@apache.org
Subject svn commit: r1448212 - /perl/modperl/branches/httpd24/t/preconnection/TestPreConnection/note.pm
Date Wed, 20 Feb 2013 15:14:41 GMT
Author: jkaluza
Date: Wed Feb 20 15:14:40 2013
New Revision: 1448212

URL: http://svn.apache.org/r1448212
Log:
* t/preconnection/TestPreConnection/note.pm: Use client_ip/client_addr instead
  of remote_ip/remote_addr

Modified:
    perl/modperl/branches/httpd24/t/preconnection/TestPreConnection/note.pm

Modified: perl/modperl/branches/httpd24/t/preconnection/TestPreConnection/note.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24/t/preconnection/TestPreConnection/note.pm?rev=1448212&r1=1448211&r2=1448212&view=diff
==============================================================================
--- perl/modperl/branches/httpd24/t/preconnection/TestPreConnection/note.pm (original)
+++ perl/modperl/branches/httpd24/t/preconnection/TestPreConnection/note.pm Wed Feb 20 15:14:40
2013
@@ -6,13 +6,16 @@ use warnings FATAL => 'all';
 use Apache2::Connection ();
 
 use Apache::TestTrace;
+use Apache::Test;
+use Apache::TestUtil;
 
 use Apache2::Const -compile => qw(OK);
+use constant APACHE24   => have_min_apache_version('2.4.0');
 
 sub handler {
     my Apache2::Connection $c = shift;
 
-    my $ip = $c->remote_ip;
+    my $ip = APACHE24 ? $c->client_ip : $c->remote_ip;
 
     debug "ip: $ip";
 



Mime
View raw message