From efa9f5ea4e3272a934d49e32c652808c4b1bc009 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 11 Dec 2003 03:24:38 +0000 Subject: [PATCH] .. original commit: 95b4c82b393c6e1c1aa36b1e09931af76b81b369 --- collects/net/url-unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss index 97122c1..7fa1055 100644 --- a/collects/net/url-unit.ss +++ b/collects/net/url-unit.ss @@ -403,7 +403,7 @@ ;; purify-port : in-port -> header-string (define purify-port (lambda (port) - (let ([m (regexp-match-peek-positions #rx"^HTTP/.*?((\r\n)|\n)((\r\n)|\n)" port)]) + (let ([m (regexp-match-peek-positions #rx"^HTTP/.*?((\r\n)|\n|\r)((\r\n)|\n|\r)" port)]) (if m (read-string (cdar m) port) ""))))