From 29922c8a775c48c13891a495f8c3703f3d928187 Mon Sep 17 00:00:00 2001 From: Scott Bell Date: Wed, 16 Jul 2014 11:58:09 -0700 Subject: [PATCH] Send a final, empty chunk as required by RFC 2616 in http-conn-send! --- pkgs/net-pkgs/net-test/tests/net/http-client.rkt | 2 +- racket/collects/net/http-client.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/net-pkgs/net-test/tests/net/http-client.rkt b/pkgs/net-pkgs/net-test/tests/net/http-client.rkt index e9c51d6a7c..3d59b82c95 100644 --- a/pkgs/net-pkgs/net-test/tests/net/http-client.rkt +++ b/pkgs/net-pkgs/net-test/tests/net/http-client.rkt @@ -245,7 +245,7 @@ ["PUT" (λ (w) (w "fr") (w "ob")) "HTTP/1.1 200 OK\r\n\r\n" - #"PUT / HTTP/1.1\r\nHost: localhost:REDACTED\r\nUser-Agent: Racket/REDACTED (net/http-client)\r\nAccept-Encoding: gzip\r\nTransfer-Encoding: chunked\r\nConnection: close\r\n\r\n2\r\nfr\r\n2\r\nob\r\n\r\n" + #"PUT / HTTP/1.1\r\nHost: localhost:REDACTED\r\nUser-Agent: Racket/REDACTED (net/http-client)\r\nAccept-Encoding: gzip\r\nTransfer-Encoding: chunked\r\nConnection: close\r\n\r\n2\r\nfr\r\n2\r\nob\r\n0\r\n\r\n" #"HTTP/1.1 200 OK" '() #""])) diff --git a/racket/collects/net/http-client.rkt b/racket/collects/net/http-client.rkt index 06246a096d..0c5366b4b2 100644 --- a/racket/collects/net/http-client.rkt +++ b/racket/collects/net/http-client.rkt @@ -136,7 +136,7 @@ (fprintf to "\r\n") (cond [(procedure? body) (body (λ (data) (write-chunk to data))) - (fprintf to "\r\n")] + (fprintf to "0\r\n\r\n")] [body (display body to)]) (flush-output to))