[Catalyst-commits] r7087 - in trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP: . Sprocket

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-11-01 00:55:24 +0000 (Thu, 01 Nov 2007)
New Revision: 7087

Modified:
   trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket.pm
   trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket/Server.pm
   trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket/Worker.pm
Log:
Fix bug in restarter options

Modified: trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket/Server.pm
===================================================================
--- trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket/Server.pm	2007-10-31 22:30:49 UTC (rev 7086)
+++ trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket/Server.pm	2007-11-01 00:55:24 UTC (rev 7087)
@@ -300,6 +300,7 @@
                 File::Spec->catdir( $FindBin::Bin, '..' )
             ),
             regex     => $config->{restart_regex},
+            delay     => 0,
         );
     }
     
@@ -483,7 +484,7 @@
 sub child_stdout {
     my ( $kernel, $self, $input, $wheel_id ) = @_[ KERNEL, OBJECT, ARG0, ARG1 ];
     
-    DEBUG && warn "Child $wheel_id stdout: " . dump($input) . "\n";
+    #DEBUG && warn "Child $wheel_id stdout: " . dump($input) . "\n";
     
     my $con = $self->{child_busy}->{ $wheel_id };
     

Modified: trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket/Worker.pm
===================================================================
--- trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket/Worker.pm	2007-10-31 22:30:49 UTC (rev 7086)
+++ trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket/Worker.pm	2007-11-01 00:55:24 UTC (rev 7087)
@@ -158,7 +158,7 @@
             $config->{appclass}->handle_request();
         }
         else {
-            # If the request is HTTP/1.1, response with 100 Continue
+            # If the request is HTTP/1.1, respond with 100 Continue
             if ( $input =~ m/(HTTP\/\d+\.\d+)/ ) {
                 my $proto = $1;
                 if ( $proto eq 'HTTP/1.1' ) {

Modified: trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket.pm
===================================================================
--- trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket.pm	2007-10-31 22:30:49 UTC (rev 7086)
+++ trunk/Catalyst-Engine-HTTP-Sprocket/lib/Catalyst/Engine/HTTP/Sprocket.pm	2007-11-01 00:55:24 UTC (rev 7087)
@@ -10,7 +10,7 @@
 
 use Catalyst::Engine::HTTP::Sprocket::Server;
 
-our $VERSION = '0.50';
+our $VERSION = '0.90';
 
 sub DEBUG () { $ENV{CATALYST_POE_DEBUG} || 0 }