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