--- JSON-XS/eg/bench 2007/03/22 21:13:58 1.1 +++ JSON-XS/eg/bench 2007/03/23 10:47:05 1.2 @@ -45,7 +45,7 @@ my ($code) = @_; my $perl = jsonToObj $json; - my $count = 100; + my $count = 10; my $times = 15; my $cent = eval "sub { " . (join ";", ($code) x $count) . "}";