http.client, fix GETs after POSTs redirects

Before this change, after a post is responded to by a 301 redirect,
the next GET had the "content-length: XX" and
"content-type: application/x-www-form-urlencoded" http headers.

Detected by running "http" test while using
squid 3.3.8 which returns a 411 error in this case.

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index b1a9daed1f857aad986bd9c7b91db4c98737f47d..f5ca7fce3e997f93e7dd9f435e32798dcb0a3712 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -91,7 +91,7 @@ SYMBOL: redirects
     redirects get request get redirects>> < [
         request get clone
         response "location" header redirect-url
-        response code>> 307 = [ "GET" >>method ] unless
+        response code>> 307 = [ "GET" >>method f >>post-data ] unless
         quot (with-http-request)
     ] [ too-many-redirects ] if ; inline recursive