Author: gozer
Date: Tue Nov 11 18:58:12 2014
New Revision: 1638259
URL: http://svn.apache.org/r1638259
Log:
Silence 2 warnings when using -Wall -Werrror for edge cases where we'd fail
to allocate an interpreter. At that point, we are pretty much dead anyways.
Modified:
perl/modperl/trunk/src/modules/perl/modperl_interp.h
Modified: perl/modperl/trunk/src/modules/perl/modperl_interp.h
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_interp.h?rev=1638259&r1=1638258&r2=1638259&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_interp.h (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_interp.h Tue Nov 11 18:58:12
2014
@@ -63,6 +63,7 @@ modperl_interp_t *modperl_interp_select(
aTHX = interp->perl; \
} \
else { \
+ aTHX = NULL; \
MP_TRACE_i(MP_FUNC, " --> failed"); \
} \
NOOP
@@ -80,6 +81,7 @@ modperl_interp_t *modperl_interp_select(
aTHX = interp->perl; \
} \
else { \
+ aTHX = NULL; \
MP_TRACE_i(MP_FUNC, " --> failed"); \
} \
NOOP
