X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FTemplate-Simple.git;a=blobdiff_plain;f=bench.pl;h=8dc354c2264ec5718a133e68aa0a529f86656b70;hp=c8b289fe8c8e0b877edd6e7f2fcba1ae52beb6b3;hb=4ba84a4fcdf828ea4035c2fbc18f70dd664a39cd;hpb=50126214fc07365a66832a163c334c6980c6148e

diff --git a/bench.pl b/bench.pl
index c8b289f..8dc354c 100644
--- a/bench.pl
+++ b/bench.pl
@@ -4,10 +4,10 @@ use strict ;
 use warnings ;
 
 use Template::Simple ;
-use Benchmark qw( timethese ) ;
+use Benchmark qw( timethese cmpthese ) ;
 use Data::Dumper ;
 
-my @dims = @ARGV ? @ARGV : ( 3, 6 ) ;
+my @dims = @ARGV ? (shift, shift) : ( 3, 5) ;
 
 my $data = generate_data( @dims ) ;
 #print Dumper $data ;
@@ -51,7 +51,7 @@ print "OK [$ok]\n" ;
 # print $$joined ;
 #print $$comp_rendered ;
 
-timethese( shift || -2,
+cmpthese( shift || -2,
 	{
 		render	=> sub { my $x = $tmpl->render( 'bench', $data ) },
 		joined	=> sub { my $x = joined( $data ) },