Improve the HTTP::Body description a bit

[catagits/HTTP-Body.git] / scripts / benchmark.pl

diff --git a/scripts/benchmark.pl b/scripts/benchmark.pl
index 16f38ff..a2735c7 100644 (file)
--- a/scripts/benchmark.pl
+++ b/scripts/benchmark.pl
@@ -115,7 +115,7 @@ foreach my $benchmark ( @benchmarks ) {
     printf( "Benchmark      : %s\n", $headers->{'Benchmark'} ) if $headers->{'Benchmark'};
     print "\n";
 
-    cmpthese( -1, $benchmarks );
+    timethese( -1, $benchmarks );
 
     printf( "%s\n", "-" x 80 ) if @benchmarks > 1;
 }