From c2bf2a817410b013aecc30d6a5abc0cad0423dff Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Sat, 18 Sep 2010 16:16:51 +0900
Subject: [PATCH] perl: make pp benchmarks available

---
 perl/benchmark/deserialize.pl | 10 +++++-----
 perl/benchmark/serialize.pl   |  6 +++---
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/perl/benchmark/deserialize.pl b/perl/benchmark/deserialize.pl
index b1d7fdf2..faa2582f 100644
--- a/perl/benchmark/deserialize.pl
+++ b/perl/benchmark/deserialize.pl
@@ -1,25 +1,25 @@
 use strict;
 use warnings;
 use Data::MessagePack;
-use JSON::XS;
-use Benchmark ':all';
+use JSON;
 use Storable;
+use Benchmark ':all';
 
 #$Data::MessagePack::PreferInteger = 1;
 
 my $a = do 'benchmark/data.pl';
 
-my $j = JSON::XS::encode_json($a);
+my $j = JSON::encode_json($a);
 my $m = Data::MessagePack->pack($a);
 my $s = Storable::freeze($a);
 
 print "-- deserialize\n";
-print "JSON::XS: $JSON::XS::VERSION\n";
+print "$JSON::Backend: ", $JSON::Backend->VERSION, "\n";
 print "Data::MessagePack: $Data::MessagePack::VERSION\n";
 print "Storable: $Storable::VERSION\n";
 cmpthese timethese(
     -1 => {
-        json     => sub { JSON::XS::decode_json($j)     },
+        json     => sub { JSON::decode_json($j)     },
         mp       => sub { Data::MessagePack->unpack($m) },
         storable => sub { Storable::thaw($s) },
     }
diff --git a/perl/benchmark/serialize.pl b/perl/benchmark/serialize.pl
index 33746842..4982ff61 100644
--- a/perl/benchmark/serialize.pl
+++ b/perl/benchmark/serialize.pl
@@ -1,19 +1,19 @@
 use strict;
 use warnings;
 use Data::MessagePack;
-use JSON::XS;
+use JSON;
 use Storable;
 use Benchmark ':all';
 
 my $a = do 'benchmark/data.pl';
 
 print "-- serialize\n";
-print "JSON::XS: $JSON::XS::VERSION\n";
+print "$JSON::Backend: ", $JSON::Backend->VERSION, "\n";
 print "Data::MessagePack: $Data::MessagePack::VERSION\n";
 print "Storable: $Storable::VERSION\n";
 cmpthese timethese(
     -1 => {
-        json     => sub { JSON::XS::encode_json($a) },
+        json     => sub { JSON::encode_json($a) },
         storable => sub { Storable::freeze($a) },
         mp       => sub { Data::MessagePack->pack($a) },
     }