From e69e0e455283b1666c3023327c46bfdcec38f9d2 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 27 Apr 2007 04:22:21 +0000 Subject: [PATCH] better regexp use svn: r6057 original commit: 3098287803d3b5c2d4a2448ba19cf4061614aec5 --- 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 3abc1a9..88f123a 100644 --- a/collects/net/url-unit.ss +++ b/collects/net/url-unit.ss @@ -312,7 +312,7 @@ ;; purify-port : in-port -> header-string (define (purify-port port) (let ([m (regexp-match-peek-positions - #rx"^HTTP/.*?((\r\n\r\n)|(\n\n)|(\r\r))" port)]) + #rx"^HTTP/.*?(?:\r\n\r\n|\n\n|\r\r)" port)]) (if m (read-string (cdar m) port) ""))) (define character-set-size 256)