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 go...@apache.org on 2014/11/11 19:58:12 UTC
svn commit: r1638259 - /perl/modperl/trunk/src/modules/perl/modperl_interp.h
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