From 002af6128c64a7cc23afa256bdbd536db53a2d04 Mon Sep 17 00:00:00 2001
From: "roberto@sirius" <roberto@sirius>
Date: Thu, 15 Apr 2010 11:47:39 +0200
Subject: [PATCH] UWSGI_FD for plack handler

---
 contrib/Uwsgi.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/contrib/Uwsgi.pm b/contrib/Uwsgi.pm
index 62d135e3..31b0466e 100644
--- a/contrib/Uwsgi.pm
+++ b/contrib/Uwsgi.pm
@@ -17,7 +17,15 @@ sub new {
 sub run {
     my ($self, $app) = @_;
 
-    my $server = IO::Socket::INET->new(LocalPort => $self->{port}, LocalAddr => $self->{host}, Listen => 100, ReuseAddr => 1);
+    my $server ;
+
+
+    if ($ENV{'UWSGI_FD'}) {
+	$server = IO::Socket::UNIX->new_from_fd($ENV{'UWSGI_FD'});
+    }
+    else {	
+        $server = IO::Socket::INET->new(LocalPort => $self->{port}, LocalAddr => $self->{host}, Listen => 100, ReuseAddr => 1);
+    }
 
     while ( my $client = $server->accept ) {