Item2014: fix 'undefined subroutine' error

git-svn-id: http://svn.foswiki.org/trunk@4796 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Sep 8, 2009 · c68c3d4 · c68c3d4
1 parent e95e779
commit c68c3d4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/core/lib/Foswiki/LoginManager/Session.pm b/core/lib/Foswiki/LoginManager/Session.pm
@@ -29,7 +29,7 @@ sub load {
 
     # SMELL: This breaks mod_perl Foswikibug:Item691
     #    local %ENV = %ENV;
-    $ENV{REMOTE_ADDR} = @_ == 1 ? $_[0]->remoteAddress : $_[1]->remoteAddress;
+    $ENV{REMOTE_ADDR} = @_ == 1 ? $_[0]->remote_addr : $_[1]->remote_addr;
     $this->SUPER::load(@_);
 }
 
@@ -44,7 +44,7 @@ sub query {
 
 sub _ip_matches {
     return (
-        $_[0]->{_DATA}->{_SESSION_REMOTE_ADDR} eq $_[0]->query->remoteAddress );
+        $_[0]->{_DATA}->{_SESSION_REMOTE_ADDR} eq $_[0]->query->remote_addr );
 }
 
 1;