summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-01-25 19:53:40 -0600
committerJesse Luehrs <doy@tozt.net>2011-01-25 19:53:40 -0600
commit84a515afd6d0e3406a07f89888b8e6f7b31728e9 (patch)
tree0bcf937a208b5a1fe42e683ce483671c9a20c08e
parentb5c9eeeb43b88c8a1319853e1a92d92b1c858057 (diff)
downloadplack-client-84a515afd6d0e3406a07f89888b8e6f7b31728e9.tar.gz
plack-client-84a515afd6d0e3406a07f89888b8e6f7b31728e9.zip
apparently this was also fixed in 0.9966
-rw-r--r--lib/Plack/Client.pm3
-rw-r--r--t/02-inputs.t2
-rw-r--r--t/03-delayed-response.t2
-rw-r--r--t/04-streaming.t2
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)),