From 49379140c7c431c3a27f11dc7565da118dd38f16 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Sat, 18 Sep 2010 15:14:29 +0900
Subject: [PATCH] perl: PERL_ONLY=1 disables XS

---
 perl/lib/Data/MessagePack.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/lib/Data/MessagePack.pm b/perl/lib/Data/MessagePack.pm
index 29981781..0f389b13 100644
--- a/perl/lib/Data/MessagePack.pm
+++ b/perl/lib/Data/MessagePack.pm
@@ -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);