From 3ee084aa8474e0a47583aee63a88beeea5d4742f Mon Sep 17 00:00:00 2001
From: Daniel Dragan <bulk88@hotmail.com>
Date: Wed, 5 Dec 2012 23:39:44 -0500
Subject: [PATCH] add PERL_NO_GET_CONTEXT to xs template in h2xs.PL

An XS module not using PERL_NO_GET_CONTEXT is extremely inefficient under
threaded Perls. Prevent PERL_NO_GET_CONTEXT-less modules in the future
by making it a default. Many XS modules are created with h2xs.
Also see this anonymous complaint http://perlmonks.org/?node_id=990732 .
---
 utils/h2xs.PL | 1 +
 1 file changed, 1 insertion(+)

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 6b2c78f..25bd0ec 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -1386,6 +1386,7 @@ if( ! $opt_X ){ # print XS, unless it is disabled
 warn "Writing $ext$modpname/$modfname.xs\n";
 
 print XS <<"END";
+#define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
-- 
2.7.4