fix

diff --git a/Web.pm b/Web.pm
index 202ecd9..2b632a7 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -319,7 +319,7 @@ sub remote_ip ()
        # As 'Apache::ForwardedFor' takes the first of $ENV{"HTTP_X_FORWARDED_FOR"}
        # while the contents is '127.0.0.1, 213.220.195.171' if client has its own proxy.
        # We must take the last item ourselves.
-       my $r=$ENV{"HTTP_X_FORWARDED_FOR"} || $W->{"r"}->remote_host();
+       my $r=$ENV{"HTTP_X_FORWARDED_FOR"} || $W->{"r"}->get_remote_host();
        $r=~s/^.*,\s*//;
        return $r;
 }