summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorDaniel Dragan <bulk88@hotmail.com>2012-12-05 23:39:44 -0500
committerFather Chrysostomos <sprout@cpan.org>2012-12-05 21:31:42 -0800
commit3ee084aa8474e0a47583aee63a88beeea5d4742f (patch)
treeea825e325ec7ae813bd0b2d177ebeea58df512c3 /utils
parent230834321e308444d408bdbf755d181b67e82d4c (diff)
downloadperl-3ee084aa8474e0a47583aee63a88beeea5d4742f.tar.gz
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 .
Diffstat (limited to 'utils')
-rw-r--r--utils/h2xs.PL1
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 6b2c78f092..25bd0ec118 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"