X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=XS.xs;h=ac7503885effd58a96beaa5240a8938f91876185;hb=HEAD;hp=59f6b792293e8e68d9ad415499e7c9259af0e4bb;hpb=7ce1a95bcdc70373d59d14302951ac0c334d5fe0;p=gitmo%2FPackage-Stash-XS.git

diff --git a/XS.xs b/XS.xs
index 59f6b79..ac75038 100644
--- a/XS.xs
+++ b/XS.xs
@@ -28,6 +28,14 @@
 #define GvCV_set(gv, cv) (GvCV(gv) = (CV*)(cv))
 #endif
 
+#ifndef MUTABLE_PTR
+#define MUTABLE_PTR(p) ((void *) (p))
+#endif
+
+#ifndef MUTABLE_SV
+#define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p))
+#endif
+
 #ifndef SVT_SCALAR
 #define SVT_SCALAR(svt) (svt <= SVt_PVLV)
 #endif
@@ -101,8 +109,7 @@
         GvASSUMECV_on(g);               \
     }                                   \
     GvCVGEN(g) = 0;                     \
-    if (HvENAME_get(GvSTASH(g)))        \
-        mro_method_changed_in(GvSTASH(g)); \
+    mro_method_changed_in(GvSTASH(g));  \
 } while (0)
 #define GvSetIO(g,v) do {               \
     SvREFCNT_dec(GvIO(g));              \