--- JSON-XS/eg/bench	2008/03/19 15:17:54	1.19
+++ JSON-XS/eg/bench	2008/03/25 06:37:39	1.20
@@ -2,10 +2,10 @@
 
 # Usage: bench json-file
 
-# which modules to test (JSON usually excluded because its so slow)
+# which modules to test (JSON::PP usually excluded because its so slow)
 my %tst = (
-   "JSON"         => ['JSON::encode_json $perl'  , 'JSON::decode_json $json'],
-   "JSON::PP"     => ['$pp->encode ($perl)'      , '$pp->decode ($json)'],
+#   "JSON"         => ['JSON::encode_json $perl'  , 'JSON::decode_json $json'],
+#   "JSON::PP"     => ['$pp->encode ($perl)'      , '$pp->decode ($json)'],
    "JSON::DWIW"   => ['$dwiw->to_json ($perl)'   , '$dwiw->from_json ($json)'],
    "JSON::PC"     => ['$pc->convert ($perl)'     , '$pc->parse ($json)'],
    "JSON::Syck"   => ['JSON::Syck::Dump $perl'   , 'JSON::Syck::Load $json'],
@@ -61,7 +61,7 @@
    my $perl = JSON::XS::decode_json $json;
 
    my $count = 5;
-   my $times = 200;
+   my $times = 2;
 
    my $cent = eval "sub { my \$t = Time::HiRes::time; " . (join ";", ($code) x $count) . "; Time::HiRes::time - \$t }";
    $cent->();