From b5c9eeeb43b88c8a1319853e1a92d92b1c858057 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 25 Jan 2011 16:27:56 -0600
Subject: new plack version fixes this

---
 dist.ini                | 2 +-
 lib/Plack/Client.pm     | 5 -----
 t/02-inputs.t           | 2 --
 t/03-delayed-response.t | 2 --
 t/04-streaming.t        | 2 --
 5 files changed, 1 insertion(+), 12 deletions(-)

diff --git a/dist.ini b/dist.ini
index 9dc13d6..992924c 100644
--- a/dist.ini
+++ b/dist.ini
@@ -9,6 +9,6 @@ dist = Plack-Client
 [Prereqs]
 Class::Load = 0
 HTTP::Request = 0
-Plack = 0.9910
+Plack = 0.9966
 Plack::App::Proxy = 0
 perl = 5.8.1
diff --git a/lib/Plack/Client.pm b/lib/Plack/Client.pm
index 1f80aae..064ac9d 100644
--- a/lib/Plack/Client.pm
+++ b/lib/Plack/Client.pm
@@ -243,11 +243,6 @@ sub _http_request_to_env {
         $req->uri->port(-1);
     }
 
-    # work around http::message::psgi bug - see github issue 163 for plack
-    if (!$req->uri->path) {
-        $req->uri->path('/');
-    }
-
     my $env = $req->to_psgi;
 
     # work around http::message::psgi bug - see github issue 150 for plack
diff --git a/t/02-inputs.t b/t/02-inputs.t
index 5f9b56a..be14d0f 100644
--- a/t/02-inputs.t
+++ b/t/02-inputs.t
@@ -130,7 +130,6 @@ sub test_responses {
         my $base = URI->new($base_uri);
         my $uri = $base->clone;
         $uri->scheme('http');
-        $uri->path('/') unless $uri->path; # XXX: work around plack bug
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
         $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
@@ -146,7 +145,6 @@ sub test_responses {
         my $base = URI->new($base_uri);
         my $uri = $base->clone;
         $uri->scheme('http');
-        $uri->path('/') unless $uri->path; # XXX: work around plack bug
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
         $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
diff --git a/t/03-delayed-response.t b/t/03-delayed-response.t
index a034f4a..7d256f0 100644
--- a/t/03-delayed-response.t
+++ b/t/03-delayed-response.t
@@ -133,7 +133,6 @@ sub test_responses {
         my $base = URI->new($base_uri);
         my $uri = $base->clone;
         $uri->scheme('http');
-        $uri->path('/') unless $uri->path; # XXX: work around plack bug
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
         $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
@@ -149,7 +148,6 @@ sub test_responses {
         my $base = URI->new($base_uri);
         my $uri = $base->clone;
         $uri->scheme('http');
-        $uri->path('/') unless $uri->path; # XXX: work around plack bug
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
         $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
diff --git a/t/04-streaming.t b/t/04-streaming.t
index 2bee7a9..268cfa0 100644
--- a/t/04-streaming.t
+++ b/t/04-streaming.t
@@ -134,7 +134,6 @@ sub test_responses {
         my $base = URI->new($base_uri);
         my $uri = $base->clone;
         $uri->scheme('http');
-        $uri->path('/') unless $uri->path; # XXX: work around plack bug
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
         $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
@@ -150,7 +149,6 @@ sub test_responses {
         my $base = URI->new($base_uri);
         my $uri = $base->clone;
         $uri->scheme('http');
-        $uri->path('/') unless $uri->path; # XXX: work around plack bug
         my $env = HTTP::Request->new(GET => $uri)->to_psgi;
         $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug
         $env->{'plack.client.original_uri'} = $base;
-- 
cgit v1.2.3-54-g00ecf