recognize 302 redirection

svn: r7090
This commit is contained in:
Matthew Flatt 2007-08-13 22:50:11 +00:00
parent 3747f712a9
commit df0c8c3245

View File

@ -259,7 +259,7 @@ A test case:
(yield s))
(let ([headers (get-headers/read-from-port progress)])
;; Page is a redirection?
(let ([m (regexp-match "^HTTP/[^ ]+ 301 " headers)])
(let ([m (regexp-match "^HTTP/[^ ]+ 30[12] " headers)])
(when m
(let ([loc (extract-field "location" headers)])
(when loc