suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

8120

Browse Source 
svn: r3418
This commit is contained in:
Jay McCarthy 2006-06-20 02:45:56 +00:00
parent d6eff0630c
commit 93d7f665f8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/web-server/private/request.ss
View File

@ -46,7 +46,8 @@
(and (= major 1) (= minor 0)) (and (= major 1) (= minor 0))
(match (headers-assq #"Connection" headers) (match (headers-assq #"Connection" headers)
[(struct header (f v)) [(struct header (f v))
(regexp-match rx v)] (and (regexp-match rx v)
#t)]
[#f [#f
#f]) #f])
(msie-from-local-machine? headers client-ip host-ip))))) (msie-from-local-machine? headers client-ip host-ip)))))