From d5a17a3c25068573b20a15ccaa22f6b8926e8d0b Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Fri, 17 Sep 2010 13:43:42 +0900
Subject: [PATCH] Fix stddata.t

---
 perl/t/09_stddata.t | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/perl/t/09_stddata.t b/perl/t/09_stddata.t
index 976fc5d3..a618787d 100644
--- a/perl/t/09_stddata.t
+++ b/perl/t/09_stddata.t
@@ -3,7 +3,6 @@
 # Don't edit msgpack/perl/t/std/*, which are just copies.
 use strict;
 use Test::More;
-use Test::Requires qw(JSON);
 use t::Util;
 
 use Data::MessagePack;
@@ -14,7 +13,11 @@ sub slurp {
     return scalar <$fh>;
 }
 
-my @data = @{ JSON::decode_json(slurp("t/std/cases.json")) };
+my @data = do {
+    my $json = slurp("t/std/cases.json");
+    $json =~ s/:/=>/g;
+    @{ eval $json };
+};
 
 my $mpac1  = slurp("t/std/cases.mpac");
 my $mpac2  = slurp("t/std/cases_compact.mpac");