Set REMOTE_PORT environment variable #50

Merged
merged 1 commit into from Sep 4, 2012
Jump to file
+1 −0
Split
View
@@ -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 => '',