Add tiny tweaks stolen from Class::XSAccessor 1.07

[gitmo/Mouse.git] / mouse.h

diff --git a/mouse.h b/mouse.h
index 8764f8a..b4f63ec 100644 (file)
--- a/mouse.h
+++ b/mouse.h
@@ -4,7 +4,9 @@
 #define PERL_NO_GET_CONTEXT
 #include <EXTERN.h>
 #include <perl.h>
+#define PERL_CORE
 #include <XSUB.h>
+#undef PERL_CORE
 
 #include "ppport.h"
 
@@ -25,10 +27,15 @@
 #define GvNAMELEN_get GvNAMELEN
 #endif
 
+#ifndef CvGV_set
+#define CvGV_set(cv, gv) (CvGV(cv) = (gv))
+#endif
+
 #ifndef mro_get_linear_isa
 #define no_mro_get_linear_isa
 #define mro_get_linear_isa(stash) mouse_mro_get_linear_isa(aTHX_ stash)
 AV* mouse_mro_get_linear_isa(pTHX_ HV* const stash);
+#define mro_method_changed_in(stash) ((void)++PL_sub_generation)
 #endif /* !mro_get_linear_isa */
 
 #ifndef mro_get_pkg_gen