diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-01-25 19:53:40 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-01-25 19:53:40 -0600 |
commit | 84a515afd6d0e3406a07f89888b8e6f7b31728e9 (patch) | |
tree | 0bcf937a208b5a1fe42e683ce483671c9a20c08e | |
parent | b5c9eeeb43b88c8a1319853e1a92d92b1c858057 (diff) | |
download | plack-client-84a515afd6d0e3406a07f89888b8e6f7b31728e9.tar.gz plack-client-84a515afd6d0e3406a07f89888b8e6f7b31728e9.zip |
apparently this was also fixed in 0.9966
-rw-r--r-- | lib/Plack/Client.pm | 3 | ||||
-rw-r--r-- | t/02-inputs.t | 2 | ||||
-rw-r--r-- | t/03-delayed-response.t | 2 | ||||
-rw-r--r-- | t/04-streaming.t | 2 |
4 files changed, 0 insertions, 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)), |