diff options
| author | Mark H Weaver <mhw@netris.org> | 2013-11-18 00:44:17 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2013-11-19 03:22:00 -0500 |
| commit | 8904b7a9362ede0de324e55701d8ea1d018f8738 (patch) | |
| tree | 3d5bcfedff23a5955e86b6610f856fcb9a8cbded | |
| parent | a4ecb437bc5b8bcdaad085dc413110db29591795 (diff) | |
| download | guile-8904b7a9362ede0de324e55701d8ea1d018f8738.tar.gz | |
Web: accept "UTC" as the zone offset in date headers.
Fixes <http://bugs.gnu.org/14128>.
Reported by Aleix Conchillo Flaqué <aconchillo@gmail.com>.
* module/web/http.scm (parse-zone-offset): Accept "UTC".
| -rw-r--r-- | module/web/http.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/web/http.scm b/module/web/http.scm index af04259cc..6c9ab9523 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -716,6 +716,8 @@ as an ordered alist." (cond ((string=? s "GMT") 0) + ((string=? s "UTC") + 0) ((string-match? s ".dddd") (let ((sign (case (string-ref s 0) ((#\+) +1) |