X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FHTTP%2FDaemon.pm;fp=lib%2FCatalyst%2FEngine%2FHTTP%2FDaemon.pm;h=d7e1440ff6719f7a81edc92a327171173b198d9c;hb=296e7663b4a7f7f1532356a94580ed9d59172daa;hp=e4fe66a5d3ad8f8974856ea2f74a7936cd3a2f0f;hpb=9cee95889d823f262f505a9530c4044b0f0da485;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine/HTTP/Daemon.pm b/lib/Catalyst/Engine/HTTP/Daemon.pm
index e4fe66a..d7e1440 100644
--- a/lib/Catalyst/Engine/HTTP/Daemon.pm
+++ b/lib/Catalyst/Engine/HTTP/Daemon.pm
@@ -3,7 +3,7 @@ package Catalyst::Engine::HTTP::Daemon;
 use strict;
 use base 'Catalyst::Engine::HTTP::Base';
 
-use IO::Socket qw(AF_INET INADDR_ANY SOCK_STREAM SOMAXCONN);
+use IO::Socket qw(AF_INET INADDR_ANY SOCK_STREAM SOMAXCONN );
 
 =head1 NAME
 
@@ -42,8 +42,11 @@ $SIG{'PIPE'} = 'IGNORE';
 sub run {
     my $class = shift;
     my $port  = shift || 3000;
+    
+    $HTTP::Daemon::PROTO = 'HTTP/1.0'; # For now until we resolve the blocking 
+                                       # issues with HTTP 1.1
 
-    my $daemon = Catalyst::Engine::HTTP::Catalyst->new(
+    my $daemon = Catalyst::Engine::HTTP::Daemon::Catalyst->new(
         Listen    => SOMAXCONN,
         LocalPort => $port,
         ReuseAddr => 1,
@@ -79,7 +82,6 @@ sub run {
 
             $class->handler($http);
             $connection->send_response( $http->response );
-
         }
 
         $connection->close;
@@ -106,13 +108,11 @@ the same terms as Perl itself.
 
 =cut
 
-package Catalyst::Engine::HTTP::Catalyst;
+package Catalyst::Engine::HTTP::Daemon::Catalyst;
 
 use strict;
 use base 'HTTP::Daemon';
 
-$HTTP::Daemon::PROTO = 'HTTP/0.9';
-
 sub product_tokens {
     "Catalyst/$Catalyst::VERSION";
 }