Implemented --disable-keepalive. This needs Plack's git 596709 commit…

… on plackup command line options. Fixes gh-3.
miyagawa · Mar 27, 2010 · d151386 · d151386
1 parent 1794a8d
commit d151386
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/lib/Starman/Server.pm b/lib/Starman/Server.pm
@@ -34,6 +34,9 @@ sub run {
     if ( $options->{daemonize} ) {
         $extra{setsid} = $extra{background} = 1;
     }
+    if (! exists $options->{keepalive}) {
+        $options->{keepalive} = 1;
+    }
 
     my($host, $port, $proto);
     for my $listen (@{$options->{listen} || [ "$options->{host}:$options->{port}" ]}) {
@@ -195,6 +198,11 @@ sub process_request {
             }
         }
 
+        unless ($self->{options}->{keepalive}) {
+            DEBUG && warn "[$$] keep-alive is disabled. Closing the connection after this request\n";
+            $self->{client}->{keepalive} = 0;
+        }
+
         $self->_prepare_env($env);
 
         # Run PSGI apps