X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=mouse.h;h=fdc50f4d40db9729306f44f34bc1db3892a2925b;hp=21e45c352015612a7b868fd15557c7953fb9652a;hb=3ea28db6c35f2f60bfcce151cb4fcee58d6edcf7;hpb=935400114c35ad1b2481c48ff471e180e9c93d93

diff --git a/mouse.h b/mouse.h
index 21e45c3..fdc50f4 100644
--- a/mouse.h
+++ b/mouse.h
@@ -6,16 +6,25 @@
 #include <perl.h>
 #include <XSUB.h>
 
+#define  NEED_newSVpvn_flags
 #include "ppport.h"
 
+/* for portability */
 #ifndef newSVpvs_share
 #define newSVpvs_share(s) Perl_newSVpvn_share(aTHX_ s, sizeof(s)-1, 0U)
 #endif
 
+#ifndef GvNAME_get
+#define GvNAME_get GvNAME
+#endif
+#ifndef GvNAMELEN_get
+#define GvNAMELEN_get GvNAMELEN
+#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)
+AV* mouse_mro_get_linear_isa(pTHX_ HV* const stash);
 #endif /* !mro_get_linear_isa */
 
 #ifndef mro_get_pkg_gen
@@ -26,7 +35,7 @@ AV* mouse_mro_get_linear_isa(pTHX_ HV* const stash)
 #endif /* !no_mro_get_linear_isa */
 #endif /* mro_get_package_gen */
 
-#define MOUSE_CALL_BOOT(name) STMT_START {        \
+#define MOUSE_CALL_BOOT(name) STMT_START {      \
         EXTERN_C XS(CAT2(boot_, name));         \
         PUSHMARK(SP);                           \
         CALL_FPTR(CAT2(boot_, name))(aTHX_ cv); \