From 84a515afd6d0e3406a07f89888b8e6f7b31728e9 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 25 Jan 2011 19:53:40 -0600
Subject: apparently this was also fixed in 0.9966

---
 lib/Plack/Client.pm     | 3 ---
 t/02-inputs.t           | 2 --
 t/03-delayed-response.t | 2 --
 t/04-streaming.t        | 2 --
 4 files changed, 9 deletions(-)

diff --git a/lib/Plack/Client.pm b/lib/Plack/Client.pm
index 064ac9d..4fb19b4 100644
--- a/lib/Plack/Client.pm
+++ b/lib/Plack/Client.pm
@@ -245,9 +245,6 @@ sub _http_request_to_env {
 
     my $env = $req->to_psgi;
 
-    # work around http::message::psgi bug - see github issue 150 for plack
-    $env->{CONTENT_LENGTH} ||= length($req->content);
-
     $env->{'plack.client.original_uri'} = $original_uri;
 
     return $env;
diff --git a/t/02-inputs.t b/t/02-inputs.t
index be14d0f..9cf46ff 100644
--- a/t/02-inputs.t
+++ b/t/02-inputs.t
@@ -131,7 +131,6 @@ sub test_responses {
         my $uri = $base->clone;
         $uri->scheme('http');
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
-        $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
         response_is(
             $client->request($env),
@@ -146,7 +145,6 @@ sub test_responses {
         my $uri = $base->clone;
         $uri->scheme('http');
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
-        $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
         response_is(
             $client->request(Plack::Request->new($env)),
diff --git a/t/03-delayed-response.t b/t/03-delayed-response.t
index 7d256f0..90236e7 100644
--- a/t/03-delayed-response.t
+++ b/t/03-delayed-response.t
@@ -134,7 +134,6 @@ sub test_responses {
         my $uri = $base->clone;
         $uri->scheme('http');
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
-        $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
         response_is(
             $client->request($env),
@@ -149,7 +148,6 @@ sub test_responses {
         my $uri = $base->clone;
         $uri->scheme('http');
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
-        $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
         response_is(
             $client->request(Plack::Request->new($env)),
diff --git a/t/04-streaming.t b/t/04-streaming.t
index 268cfa0..c775fca 100644
--- a/t/04-streaming.t
+++ b/t/04-streaming.t
@@ -135,7 +135,6 @@ sub test_responses {
         my $uri = $base->clone;
         $uri->scheme('http');
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
-        $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
         response_is(
             $client->request($env),
@@ -150,7 +149,6 @@ sub test_responses {
         my $uri = $base->clone;
         $uri->scheme('http');
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
-        $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
         response_is(
             $client->request(Plack::Request->new($env)),
-- 
cgit v1.2.3