Mojo::Channel::HTTP::Server needs a start method too

mojolicious · Jan 10, 2016 · d3f3b91 · d3f3b91
1 parent 74f436f
commit d3f3b91
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/lib/Mojo/Channel/HTTP.pm b/lib/Mojo/Channel/HTTP.pm
@@ -8,7 +8,7 @@ sub is_server {undef}
 sub start {
   my $self = shift;
   @$self{qw(tx cb)} = @_;
-  delete @$self{qw(delay handled http_state offset write)};
+  delete @$self{qw(delay http_state offset write)};
   return $self;
 }
 

diff --git a/lib/Mojo/Channel/HTTP/Server.pm b/lib/Mojo/Channel/HTTP/Server.pm
@@ -16,4 +16,10 @@ sub read {
   $tx->handle if $req->is_finished && !$self->{handled}++;
 }
 
+sub start {
+  my $self = shift;
+  delete $self->{handled};
+  return $self->SUPER::start(@_);
+}
+
 1;
diff --git a/lib/Mojo/Server/Daemon.pm b/lib/Mojo/Server/Daemon.pm
@@ -206,9 +206,7 @@ sub _read {
 
   # Make sure we have a transaction and parse chunk
   my $c = $self->{connections}{$id};
-  unless ($c->{tx}) {
-    $c->start($self->_build_tx($id, $c));
-  }
+  $c->start($self->_build_tx($id, $c)) unless $c->{tx};
   my $tx = $c->{tx};
   warn term_escape "-- Server <<< Client (@{[_url($tx)]})\n$chunk\n" if DEBUG;
   $c->read($chunk);