--- JSON-XS/eg/bench	2007/03/23 10:47:05	1.2
+++ JSON-XS/eg/bench	2007/03/23 15:10:55	1.3
@@ -22,6 +22,8 @@
 local $/;
 $json = <>;
 
+$json = to_json [join "", map +(chr rand 255), 0..8191];
+
 #if (1) {
 #   use Storable;
 #   open my $fh, "<:unix", "/opt/crossfire/share/cfserver/faces" or die "$!";
@@ -33,10 +35,10 @@
 #}
 
 my %tst = (
+#   "JSON"         => ['objToJson $perl'       , 'jsonToObj $json'],
    "JSON::DWIW"   => ['$dwiw->to_json ($perl)', '$dwiw->from_json ($json)'],
-   "JSON::Syck"   => ['JSON::Syck::Dump $perl', 'JSON::Syck::Load $json'],
    "JSON::PC"     => ['$pc->convert ($perl)'  , '$pc->parse ($json)'],
-   "JSON"         => ['objToJson $perl'       , 'jsonToObj $json'],
+#   "JSON::Syck"   => ['JSON::Syck::Dump $perl', 'JSON::Syck::Load $json'],
    "JSON::XS"     => ['to_json $perl'         , 'from_json $json'],
    "JSON::XS/2"   => ['$xs->encode ($perl)'   , '$xs->decode ($json)'],
 );