* Perl 5.15.1+ changed the Perl_pad_findmy API into Perl_pad_findmy_pvn.

audreyt · Sep 5, 2011 · 05efbe0 · 05efbe0 · clkao · Sep 5, 2011
1 parent 6b252a4
commit 05efbe0
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/invoker.xs b/invoker.xs
@@ -7,6 +7,13 @@
 
 #include "hook_op_check.h"
 
+#if PERL_REVISION == 5 && PERL_VERSION >= 16
+#define pad_findmy(a,b,c) Perl_pad_findmy_pvn(aTHX_ a, b, c)
+#else
+#if PERL_REVISION == 5 && PERL_VERSION >= 15 && PERL_SUBVERSION >= 1
+#define pad_findmy(a,b,c) Perl_pad_findmy_pvn(aTHX_ a, b, c)
+
+#else
 #if PERL_REVISION == 5 && PERL_VERSION >= 13
 
 #else
@@ -19,6 +26,8 @@
 #define pad_findmy(a,b,c) Perl_pad_findmy(aTHX_ a)
 #endif
 #endif
+#endif
+#endif
 
 typedef struct userdata_St {
     hook_op_check_id eval_hook;