Changeset 15141 in project


Ignore:
Timestamp:
07/02/09 22:28:45 (10 years ago)
Author:
sjamaan
Message:

Version is accepted in cookie params too!

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/http-client/trunk/http-client.scm

    r15140 r15141  
    196196  (vector (get-value info)
    197197          (filter (lambda (p)
    198                     (member (car p) '(domain path)))
     198                    (member (car p) '(domain path version)))
    199199                  (get-params info))))
    200200
     
    228228                           ((domain-match? uri dn))
    229229                           ((not (prefix-contains-dots? (uri-host uri) dn))))
    230                   ;; Store only the cookie values we understand
    231                   ;; and make it a Cookie: header.
     230                  ;; Store only the cookie values we understand and need
    232231                  (store-cookie! (vector (get-value c)
    233232                                         `((version . ,(get-param 'version c))
     
    254253                           ((or (eq? ports 'any)
    255254                                (member (uri-port uri) ports))))
    256                   ;; Store only the cookie values we understand
    257                   ;; and make it a Cookie: header.
     255                  ;; Store only the cookie values we understand and need
    258256                  (store-cookie! (vector (get-value c)
    259257                                         `((version . ,(get-param 'version c))
Note: See TracChangeset for help on using the changeset viewer.