Changeset 20268 in project


Ignore:
Timestamp:
09/12/10 18:30:36 (11 years ago)
Author:
ddp
Message:

fix bounds exception for short response headers

Location:
release/4/yelp/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/yelp/trunk/yelp.meta

    r16828 r20268  
    33 (category web)
    44 (author "[[derrell piper]]")
    5  (license "GPL-3")
     5 (license "BSD")
    66 (doc-from-wiki)
    77 (needs json)
  • release/4/yelp/trunk/yelp.scm

    r16839 r20268  
    7979                          (close-output-port out)
    8080                          (return json)))
    81                     (if (string=? content-length (substring header 0 (string-length content-length)))
     81                    (if (and (> (string-length header) (string-length content-length))
     82                             (string=? content-length (substring header 0 (string-length content-length))))
    8283                        (begin
    8384                          (set! json-length (string->number (substring header (string-length content-length) (string-length header))))
  • release/4/yelp/trunk/yelp.setup

    r16826 r20268  
    55 'yelp
    66 '("yelp.so" "yelp.o" "yelp.import.so")
    7  '((version 1.0)
     7 '((version 1.0.1)
    88   (static "yelp.o")))
Note: See TracChangeset for help on using the changeset viewer.