From: Christian Hansen <chansen@cpan.org>
Date: Tue, 29 Mar 2005 12:23:39 +0000 (+0000)
Subject: Catalyst::Engine::HTTP
X-Git-Tag: 5.7099_04~1659
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03978da924d05019d7c6e27cb785cab28addbe67;hp=aa64badacdc24647a55bf96f3e682fdaf9461e22;p=catagits%2FCatalyst-Runtime.git

Catalyst::Engine::HTTP
---

diff --git a/lib/Catalyst/Engine/HTTP.pm b/lib/Catalyst/Engine/HTTP.pm
index 3201ed9..37be240 100644
--- a/lib/Catalyst/Engine/HTTP.pm
+++ b/lib/Catalyst/Engine/HTTP.pm
@@ -3,7 +3,7 @@ package Catalyst::Engine::HTTP;
 use strict;
 use base 'Catalyst::Engine::Test';
 
-use IO::Socket qw(AF_INET);
+use IO::Socket qw(AF_INET SOCK_STREAM SOMAXCONN);
 
 =head1 NAME
 
@@ -44,8 +44,10 @@ sub run {
     my $port  = shift || 3000;
 
     my $daemon = Catalyst::Engine::HTTP::Catalyst->new(
+        Listen    => SOMAXCONN,
         LocalPort => $port,
-        ReuseAddr => 1
+        ReuseAddr => 1,
+        Type      => SOCK_STREAM,
     );
 
     unless ($daemon) {