http-client: don't try to gunzip an empty stream

2015-09-02 14:31:22 -07:00 · 2015-09-02 14:31:22 -07:00 · 28d5ae19f9
commit 28d5ae19f9
parent 98b819edd4
1 changed files with 3 additions and 1 deletions
--- a/racket/collects/net/http-client.rkt
+++ b/racket/collects/net/http-client.rkt
@ -261,7 +261,9 @@
  (define decoded-response-port
    (cond
      [head? raw-response-port]
-      [(and (memq 'gzip decodes) (regexp-member #rx#"^(?i:Content-Encoding: +gzip)$" headers))
+      [(and (memq 'gzip decodes)
+            (regexp-member #rx#"^(?i:Content-Encoding: +gzip)$" headers)
+            (not (eof-object? (peek-byte raw-response-port))))
       (define-values (in out) (make-pipe PIPE-SIZE))
       (define gunzip-t
         (thread