Skip to content
Browse files

Set REMOTE_PORT environment variable

  • Loading branch information...
1 parent 20dd7ee commit 3cc9ab213bf0f7fc996b0d5b3b5eef48c18c7a95 @dex4er committed Sep 4, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 lib/Starman/Server.pm
View
1 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 => '',

0 comments on commit 3cc9ab2

Please sign in to comment.
Something went wrong with that request. Please try again.