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 pg...@apache.org on 2006/11/30 12:52:03 UTC
svn commit: r480903 - /perl/modperl/trunk/src/modules/perl/modperl_interp.h
Author: pgollucci
Date: Thu Nov 30 03:52:02 2006
New Revision: 480903
URL: http://svn.apache.org/viewvc?view=rev&rev=480903
Log:
ugh... This should have been in r480890.
(It helps to update both the get and set)
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?view=diff&rev=480903&r1=480902&r2=480903
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_interp.h (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_interp.h Thu Nov 30 03:52:02 2006
@@ -36,8 +36,15 @@
* cleaner solution. of course it must be really fast.
*/
#ifndef HvPMROOT
+# if PERL_REVISION == 5 && \
+ ((PERL_VERSION == 9 && PERL_SUBVERSION > 4) || \
+ PERL_VERSION > 9)
#define MP_THX_INTERP_GET(thx) \
- (modperl_interp_t *) ((XPVMG*)SvANY(*Perl_Imodglobal_ptr(thx)))->xmg_magic
+ (modperl_interp_t *) ((XPVMG*)SvANY(*Perl_Imodglobal_ptr(thx)))->xmg_u.xmg_magic
+# else
+#define MP_THX_INTERP_GET(thx) \
+ (modperl_interp_t *) ((XPVMG*)SvANY(*Perl_Imodglobal_ptr(thx)))->xmg_magic
+# endif
#else
#define MP_THX_INTERP_GET(thx) \
(modperl_interp_t *)HvPMROOT(*Perl_Imodglobal_ptr(thx))