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/02/14 20:23:05 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_handler.c modperl_mgv.c
stas 2004/02/14 11:23:05
Modified: src/modules/perl modperl_handler.c modperl_mgv.c
Log:
non-ithreaded perl fixes
Revision Changes Path
1.23 +2 -1 modperl-2.0/src/modules/perl/modperl_handler.c
Index: modperl_handler.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_handler.c,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -u -r1.22 -r1.23
--- modperl_handler.c 9 Feb 2004 20:35:26 -0000 1.22
+++ modperl_handler.c 14 Feb 2004 19:23:05 -0000 1.23
@@ -1,6 +1,6 @@
#include "mod_perl.h"
-
+#ifdef USE_ITHREADS
static
char *modperl_coderef2text(pTHX_ apr_pool_t *p, CV *cv)
{
@@ -58,6 +58,7 @@
return text;
}
+#endif
modperl_handler_t *modperl_handler_new(apr_pool_t *p, const char *name)
{
1.34 +5 -0 modperl-2.0/src/modules/perl/modperl_mgv.c
Index: modperl_mgv.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -u -r1.33 -r1.34
--- modperl_mgv.c 11 Feb 2004 01:19:23 -0000 1.33
+++ modperl_mgv.c 14 Feb 2004 19:23:05 -0000 1.34
@@ -198,6 +198,11 @@
char *handler_name = "handler";
char *tmp;
+ if (MpHandlerANON(handler)) {
+ /* already resolved anonymous handler */
+ return 1;
+ }
+
if (strnEQ(name, "sub ", 4)) {
MP_TRACE_h(MP_FUNC, "handler is anonymous\n");
MpHandlerANON_On(handler);