Mailing List Archive

Author: stevehay
Date: Thu Jun 4 07:21:28 2015
New Revision: 1683472

URL: http://svn.apache.org/r1683472
Log:
Restore unthreaded build following r1682366

Modified:
perl/modperl/trunk/src/modules/perl/modperl_error.h

Modified: perl/modperl/trunk/src/modules/perl/modperl_error.h
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_error.h?rev=1683472&r1=1683471&r2=1683472&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_error.h (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_error.h Thu Jun 4 07:21:28 2015
@@ -37,6 +37,7 @@ char *modperl_error_strerror(pTHX_ apr_s

void modperl_croak(pTHX_ apr_status_t rc, const char* func);

+#ifdef USE_ITHREADS
#define MP_PUTBACK_IF_USED() STMT_START \
{ \
modperl_interp_t *interp = modperl_thx_interp_get(aTHX); \
@@ -44,6 +45,9 @@ void modperl_croak(pTHX_ apr_status_t rc
modperl_interp_unselect(interp); \
} \
} STMT_END
+#else
+#define MP_PUTBACK_IF_USED() NOOP
+#endif

#define MP_CROAK_PUTBACK(rc, func) STMT_START \
{ \