Author: joes
Date: Wed Oct 12 19:07:26 2005
New Revision: 320610
URL: http://svn.apache.org/viewcvs?rev=320610&view=rev
Log:
on get/set methods, we want $cookie->method(undef)
to set a NULL pointer into the corresponding slot.
The original code doesn't do that, it sets an empty
string instead.
Modified:
httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/APR__Request__Cookie.h
Modified:
httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/APR__Request__Cookie.h
URL:
http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/APR__Request__Cookie.h?rev=320610&r1=320609&r2=320610&view=diff
==============================================================================
---
httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/APR__Request__Cookie.h
(original)
+++
httpd/apreq/trunk/glue/perl/xsbuilder/APR/Request/Cookie/APR__Request__Cookie.h
Wed Oct 12 19:07:26 2005
@@ -14,6 +14,9 @@
apr_pool_t *p;
SV *parent;
+ if (!SvOK(value))
+ return NULL;
+
v = SvPV(value, vlen);
mg = mg_find(obj, PERL_MAGIC_ext);
iv = SvIVX(mg->mg_obj);
