changed to use cmpthese

diff --git a/bench.pl b/bench.pl
index c8b289f..8dc354c 100644 (file)
--- 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 ) },