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 2012/04/10 10:03:21 UTC

svn commit: r1311623 - /perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h

Author: stevehay
Date: Tue Apr 10 08:03:21 2012
New Revision: 1311623

URL: http://svn.apache.org/viewvc?rev=1311623&view=rev
Log:
Move code after declarations to keep MSVC++ compiler happy.

Modified:
    perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h

Modified: perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h?rev=1311623&r1=1311622&r2=1311623&view=diff
==============================================================================
--- perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h (original)
+++ perl/modperl/trunk/xs/Apache2/ServerUtil/Apache2__ServerUtil.h Tue Apr 10 08:03:21 2012
@@ -53,9 +53,11 @@ static apr_status_t mpxs_cleanup_run(voi
     mpxs_cleanup2_t *cdata = (mpxs_cleanup2_t *)data;
 #ifdef USE_ITHREADS
     dTHXa(cdata->perl);
-    PERL_SET_CONTEXT(aTHX);
 #endif
     dSP;
+#ifdef USE_ITHREADS
+    PERL_SET_CONTEXT(aTHX);
+#endif
 
     ENTER;SAVETMPS;
     PUSHMARK(SP);