From dc5313d113245c8588e5bc4fab8a169bef607f7c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 5 Jan 2011 16:00:51 -0600
Subject: handle HEAD requests properly

---
 lib/Plack/Client.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/Plack/Client.pm b/lib/Plack/Client.pm
index af145ff..82630f8 100644
--- a/lib/Plack/Client.pm
+++ b/lib/Plack/Client.pm
@@ -53,6 +53,9 @@ sub request {
 
     my $env = $self->_req_to_env($req);
     my $psgi_res = $self->_resolve_response($app->($env));
+    # is there a better place to do this? Plack::App::Proxy already takes care
+    # of this (since it's making a real http request)
+    $psgi_res->[2] = [] if $env->{REQUEST_METHOD} eq 'HEAD';
 
     # XXX: or just return the arrayref?
     return Plack::Response->new(@$psgi_res);
-- 
cgit v1.2.3-54-g00ecf