joes 2004/06/11 11:51:28
Modified: . RELEASE
glue/perl/xsbuilder apreq_xs_postperl.h
glue/perl/xsbuilder/Apache/Request Apache__Request.h
Log:
Geoff's patch to avoid a used-only-once warning w/ non-ithread perls (at
least I think that's what it's about :-).
Revision Changes Path
1.6 +1 -1 httpd-apreq-2/RELEASE
Index: RELEASE
===================================================================
RCS file: /home/cvs/httpd-apreq-2/RELEASE,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- RELEASE 11 Jun 2004 17:34:38 -0000 1.5
+++ RELEASE 11 Jun 2004 18:51:28 -0000 1.6
@@ -41,7 +41,7 @@
Commit the changes and tag the tree (tr/0-9a-zA-Z/_/c in the
version number)
- % cvs commit -m "2.XX-dev released." STATUS
+ % cvs commit -m "2.XX-dev released." STATUS CHANGES
% cvs tag v2_XX_dev
6. Regenerate the release
1.27 +3 -0 httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h
Index: apreq_xs_postperl.h
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- apreq_xs_postperl.h 11 Jun 2004 03:21:33 -0000 1.26
+++ apreq_xs_postperl.h 11 Jun 2004 18:51:28 -0000 1.27
@@ -264,8 +264,11 @@
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;
if (key)
1.28 +3 -0
httpd-apreq-2/glue/perl/xsbuilder/Apache/Request/Apache__Request.h
Index: Apache__Request.h
===================================================================
RCS file:
/home/cvs/httpd-apreq-2/glue/perl/xsbuilder/Apache/Request/Apache__Request.h,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- Apache__Request.h 11 Jun 2004 16:46:37 -0000 1.27
+++ Apache__Request.h 11 Jun 2004 18:51:28 -0000 1.28
@@ -95,8 +95,11 @@
static int apreq_xs_upload_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;
if (key) {
