From 3cc9ab213bf0f7fc996b0d5b3b5eef48c18c7a95 Mon Sep 17 00:00:00 2001
From: Piotr Roszatycki <piotr.roszatycki@gmail.com>
Date: Tue, 4 Sep 2012 23:04:59 +0200
Subject: [PATCH] Set REMOTE_PORT environment variable

---
 lib/Starman/Server.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Starman/Server.pm b/lib/Starman/Server.pm
index b9f6b08..b5bb579 100644
--- 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     => '',