Set REMOTE_PORT environment variable

dex4er · Sep 4, 2012 · 3cc9ab2 · 3cc9ab2
1 parent 20dd7ee
commit 3cc9ab2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Starman/Server.pm b/lib/Starman/Server.pm
@@ -176,6 +176,7 @@ sub process_request {
         my $env = {
             REMOTE_ADDR     => $self->{server}->{peeraddr},
             REMOTE_HOST     => $self->{server}->{peerhost} || $self->{server}->{peeraddr},
+            REMOTE_PORT     => $self->{server}->{peerport} || 0,
             SERVER_NAME     => $self->{server}->{sockaddr} || 0, # XXX: needs to be resolved?
             SERVER_PORT     => $self->{server}->{sockport} || 0,
             SCRIPT_NAME     => '',