From 13f8a7b7b39875f66ff01549bc0e16dbba4db144 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 13 Nov 2010 20:20:58 -0600
Subject: add some compatibility shims

---
 Stash.xs | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'Stash.xs')

diff --git a/Stash.xs b/Stash.xs
index 7078b95..c2a4229 100644
--- a/Stash.xs
+++ b/Stash.xs
@@ -6,6 +6,24 @@
 #define NEED_sv_2pv_flags
 #include "ppport.h"
 
+#ifndef gv_fetchsv
+#define gv_fetchsv(n,f,t) gv_fetchpv(SvPV_nolen(n), f, t)
+#endif
+
+#ifndef mro_method_changed_in
+#define mro_method_changed_in(x) PL_sub_generation++
+#endif
+
+#ifdef newSVhek
+#define newSVhe(he) newSVhek(HeKEY_hek(he))
+#else
+#define newSVhe(he) newSVpvn(HePV(he))
+#endif
+
+#ifndef savesvpv
+#define savesvpv(s) savepv(SvPV_nolen(s))
+#endif
+
 typedef enum {
     VAR_NONE = 0,
     VAR_SCALAR,
@@ -564,7 +582,7 @@ list_all_symbols(self, vartype=VAR_NONE)
         keys = hv_iterinit(namespace);
         EXTEND(SP, keys);
         while ((entry = hv_iternext(namespace))) {
-            mPUSHs(newSVhek(HeKEY_hek(entry)));
+            mPUSHs(newSVhe(entry));
         }
     }
     else {
-- 
cgit v1.2.3-54-g00ecf