From 29707bd2ead5fa41dd0908fd7039124be1f6c5d8 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Sat, 18 Sep 2010 16:19:16 +0900
Subject: [PATCH] perl: fix bootstrap

---
 perl/lib/Data/MessagePack.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/lib/Data/MessagePack.pm b/perl/lib/Data/MessagePack.pm
index 4e4064b..154c5b1 100644
--- a/perl/lib/Data/MessagePack.pm
+++ b/perl/lib/Data/MessagePack.pm
@@ -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);