perl: PERL_ONLY=1 disables XS

This commit is contained in:
gfx 2010-09-18 15:14:29 +09:00
parent 63f6c86b46
commit 49379140c7

View File

@ -24,7 +24,7 @@ sub false () {
if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate
my $backend = $ENV{ PERL_DATA_MESSAGEPACK } || '';
if ( $backend !~ /\b pp \b/xms ) {
if ( $backend !~ /\b pp \b/xms or $ENV{PERL_ONLY} ) {
eval {
require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);