perl: fix bootstrap

This commit is contained in:
gfx 2010-09-18 16:19:16 +09:00
parent c2bf2a8174
commit 29707bd2ea

View File

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