mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Web: accept "UTC" as the zone offset in date headers.

Browse source 
Fixes <http://bugs.gnu.org/14128>.
Reported by Aleix Conchillo Flaqué <aconchillo@gmail.com>.

* module/web/http.scm (parse-zone-offset): Accept "UTC".
This commit is contained in:
Mark H Weaver 2013-11-18 00:44:17 -05:00
parent a4ecb437bc
commit 8904b7a936
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/web/http.scm
View file

@ -716,6 +716,8 @@ as an ordered alist."
(cond (cond
((string=? s "GMT") ((string=? s "GMT")
0) 0)
((string=? s "UTC")
0)
((string-match? s ".dddd") ((string-match? s ".dddd")
(let ((sign (case (string-ref s 0) (let ((sign (case (string-ref s 0)
((#\+) +1) ((#\+) +1)