Allow headers containing " to fix problem reported by doublec

2009-03-07 21:24:32 -06:00 · 2009-03-07 21:24:32 -06:00 · c28370d356
parent 8a7d877ec6
commit c28370d356
1 changed files with 1 additions and 1 deletions
--- a/basis/http/http.factor
+++ b/basis/http/http.factor
@ -34,7 +34,7 @@ IN: http

 : check-header-string ( str -- str )
    #! http://en.wikipedia.org/wiki/HTTP_Header_Injection
-    dup "\r\n\"" intersects?
+    dup "\r\n" intersects?
    [ "Header injection attack" throw ] when ;

 : write-header ( assoc -- )