..
original commit: 95b4c82b393c6e1c1aa36b1e09931af76b81b369
This commit is contained in:
parent
fdadebdfc5
commit
efa9f5ea4e
|
@ -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)
|
||||
""))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user