diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2012-12-05 23:39:44 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-12-05 21:31:42 -0800 |
| commit | 3ee084aa8474e0a47583aee63a88beeea5d4742f (patch) | |
| tree | ea825e325ec7ae813bd0b2d177ebeea58df512c3 /utils/h2xs.PL | |
| parent | 230834321e308444d408bdbf755d181b67e82d4c (diff) | |
| download | perl-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/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 1 |
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" |