Set REMOTE_PORT environment variable #324

Merged
merged 1 commit into from Sep 30, 2012
@@ -112,6 +112,7 @@ sub accept_loop {
SERVER_NAME => $self->{host},
SCRIPT_NAME => '',
REMOTE_ADDR => $conn->peerhost,
+ REMOTE_PORT => $conn->peerport || 0,
'psgi.version' => [ 1, 1 ],
'psgi.errors' => *STDERR,
'psgi.url_scheme' => $self->{ssl} ? 'https' : 'http',