svn commit: r161536 - in httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request: Cookie/Cookie.xs Param/Param.xs

[joes]

Author: joes
Date: Fri Apr 15 19:51:53 2005
New Revision: 161536

URL: http://svn.apache.org/viewcvs?view=rev&rev=161536
Log:
More non-ithread compile fixes.

Submitted by: Philip Gollucci
Reviewed by: joes

Modified:
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs
    
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs

Modified: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs?view=diff&r1=161535&r2=161536
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs
 (original)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Cookie/Cookie.xs
 Fri Apr 15 19:51:53 2005
@@ -3,14 +3,19 @@
 
 static int apreq_xs_table_keys(void *data, const char *key, const char *val)
 {
+#ifdef USE_ITHREADS
     struct apreq_xs_do_arg *d = (struct apreq_xs_do_arg *)data;
     dTHXa(d->perl);
+#endif
     dSP;
     apreq_cookie_t *c = apreq_value_to_cookie(val);
     SV *sv = newSVpvn(key, c->v.nlen);
     if (apreq_cookie_is_tainted(c))
         SvTAINTED_on(sv);
-   
+
+#ifndef USE_ITHREADS
+               (void)data;
+#endif 
     XPUSHs(sv_2mortal(sv));
     PUTBACK;
     return 1;

Modified: 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
URL: 
http://svn.apache.org/viewcvs/httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs?view=diff&r1=161535&r2=161536
==============================================================================
--- 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
 (original)
+++ 
httpd/apreq/branches/multi-env-unstable/glue/perl/xsbuilder/APR/Request/Param/Param.xs
 Fri Apr 15 19:51:53 2005
@@ -74,14 +74,19 @@
 
 static int apreq_xs_table_keys(void *data, const char *key, const char *val)
 {
+#ifdef USE_ITHREADS
     struct apreq_xs_do_arg *d = (struct apreq_xs_do_arg *)data;
     dTHXa(d->perl);
+#endif
     dSP;
     apreq_param_t *p = apreq_value_to_param(val);
     SV *sv = newSVpvn(key, p->v.nlen);
     if (apreq_param_is_tainted(p))
         SvTAINTED_on(sv);
 
+#ifndef USE_ITHREADS
+               (void)data;
+#endif
     XPUSHs(sv_2mortal(sv));
     PUTBACK;
     return 1;