You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/04/03 04:35:47 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_util.c
stas 2004/04/02 18:35:47
Modified: src/modules/perl modperl_util.c
Log:
non-threaded perl compilation fixes
Revision Changes Path
1.66 +5 -2 modperl-2.0/src/modules/perl/modperl_util.c
Index: modperl_util.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -u -r1.65 -r1.66
--- modperl_util.c 2 Apr 2004 02:17:45 -0000 1.65
+++ modperl_util.c 3 Apr 2004 02:35:47 -0000 1.66
@@ -936,8 +936,11 @@
hv_iterinit(hv);
MP_TRACE_g(MP_FUNC, "|-------- PL_modglobal --------");
- MP_TRACE_g(MP_FUNC, "| perl 0x%lx PL_modglobal 0x%lx",
- (unsigned long)aTHX, (unsigned long)PL_modglobal);
+#ifdef USE_ITHREADS
+ MP_TRACE_g(MP_FUNC, "| perl 0x%lx", (unsigned long)aTHX);
+#endif
+ MP_TRACE_g(MP_FUNC, "| PL_modglobal 0x%lx",
+ (unsigned long)PL_modglobal);
while ((val = (AV*)hv_iternextsv(hv, &key, &klen))) {
MP_TRACE_g(MP_FUNC, "| %s => 0x%lx", key, val);