From 8962dfd6c069786370901f53b09ae56ec61390dd Mon Sep 17 00:00:00 2001 From: Abigail Date: Wed, 21 Aug 2002 21:10:39 -0700 Subject: Make cmpthese work as documented. Message-ID: <20020822041039.A2089@ucan.foad.org> p4raw-id: //depot/perl@17774 --- lib/Benchmark.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lib/Benchmark.pm') diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm index cda764f6ca..5ba9190211 100644 --- a/lib/Benchmark.pm +++ b/lib/Benchmark.pm @@ -196,7 +196,7 @@ Clear the cached time for COUNT rounds of the null loop. Clear all cached times. -=item cmpthese ( COUT, CODEHASHREF, [ STYLE ] ) +=item cmpthese ( COUNT, CODEHASHREF, [ STYLE ] ) =item cmpthese ( RESULTSHASHREF, [ STYLE ] ) @@ -412,7 +412,7 @@ use Exporter; clearcache clearallcache disablecache enablecache); %EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ; -$VERSION = 1.04; +$VERSION = 1.05; &init; @@ -713,7 +713,9 @@ sub timethese{ } sub cmpthese{ - my ($results, $style) = ref $_[0] ? @_ : ( timethese( @_[0,1,2] ), $_[2] ) ; + my ($results, $style) = + ref $_ [0] ? @_ + : (timethese (@_ [0, 1], @_ > 2 ? $_ [2] : "none"), $_ [2]); $style = "" unless defined $style; -- cgit v1.2.1