perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r480903 - /perl/modperl/trunk/src/modules/perl/modperl_interp.h
Date Thu, 30 Nov 2006 11:52:03 GMT
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))



Mime
View raw message