use PERL_NO_GET_CONTEXT

diff --git a/Changes b/Changes
index d798b67..c17f500 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 Changes for Devel-Declare
 
+  - In XS, use PERL_NO_GET_CONTEXT for efficiency.
   - Avoid using Test::Warn, which has previously been a troublesome
     dependency.
 

diff --git a/Declare.xs b/Declare.xs
index 44d0a72..47f9482 100644 (file)
--- a/Declare.xs
+++ b/Declare.xs
@@ -1,3 +1,4 @@
+#define PERL_NO_GET_CONTEXT 1
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"