[bknr-cvs] edi changed trunk/thirdparty/drakma/ - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

25 Feb 2009

Revision: 4322
Author: edi
URL: http://bknr.net/trac/changeset/4322
Fix send-cookie-p
U   trunk/thirdparty/drakma/CHANGELOG.txt
U   trunk/thirdparty/drakma/cookies.lisp
Modified: trunk/thirdparty/drakma/CHANGELOG.txt
===================================================================

--- trunk/thirdparty/drakma/CHANGELOG.txt	2009-02-24 13:40:22 UTC (rev 4321)
+++ trunk/thirdparty/drakma/CHANGELOG.txt	2009-02-25 07:44:09 UTC (rev 4322)
@@ -1,3 +1,5 @@
+Make SEND-COOKIE-P work for pathless URIs (thanks to Tomo Matsumoto)
+
 Version 1.0.0
 2009-02-19
 Use the new ("binary") version of Chunga
Modified: trunk/thirdparty/drakma/cookies.lisp
===================================================================
--- trunk/thirdparty/drakma/cookies.lisp	2009-02-24 13:40:22 UTC (rev 4321)
+++ trunk/thirdparty/drakma/cookies.lisp	2009-02-25 07:44:09 UTC (rev 4322)
@@ -111,7 +111,7 @@
   (and ;; check domain
        (cookie-domain-matches (cookie-domain cookie) uri)
        ;; check path
-       (starts-with-p (uri-path uri) (cookie-path cookie))
+       (starts-with-p (or (uri-path uri) "/") (cookie-path cookie))
        ;; check expiry date
        (let ((expires (cookie-expires cookie)))
          (or (null expires)

    