From dca9ea0f8f17bd3bb0ee97e2dc2e169491ac831b Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Tue, 29 Sep 2009 18:16:50 -0700
Subject: [PATCH] use ContentLength middleware in Servers that want
 Content-Length

---
 lib/Plack/Server/AnyEvent.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Plack/Server/AnyEvent.pm b/lib/Plack/Server/AnyEvent.pm
index 06c0587..1fb386b 100644
--- a/lib/Plack/Server/AnyEvent.pm
+++ b/lib/Plack/Server/AnyEvent.pm
@@ -8,6 +8,7 @@ use AnyEvent::Socket;
 use Plack::Util;
 use HTTP::Status;
 use Plack::HTTPParser qw(parse_http_request);
+use Plack::Middleware::ContentLength;
 use IO::Handle;
 use Errno ();
 use Scalar::Util ();
@@ -125,6 +126,7 @@ sub _response_handler {
 
     return sub {
         my($app, $env) = @_;
+        $app = Plack::Middleware::ContentLength->wrap($app);
         my $res = Plack::Util::run_app $app, $env;
         return if scalar(@$res) == 0;