X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FBenchmark.pm;h=d7e34f88a68bed66234c4f98438d8e7b72b77e5f;hb=14be35aaf1e66d9ee3b0b434256386e605d6024d;hp=c472d58ffd64a6927486cf58b74e573d4d022128;hpb=f695f0e6874001cf0696a1b1ec3411efe80ba2a9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index c472d58..d7e34f8 100644
--- a/lib/Benchmark.pm
+++ b/lib/Benchmark.pm
@@ -432,7 +432,7 @@ our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
 	      clearcache clearallcache disablecache enablecache);
 %EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ;
 
-$VERSION = 1.051;
+$VERSION = 1.052;
 
 # --- ':hireswallclock' special handling
 
@@ -890,7 +890,7 @@ sub cmpthese{
     @vals = sort { $a->[7] <=> $b->[7] } @vals;
 
     # If more than half of the rates are greater than one...
-    my $display_as_rate = $vals[$#vals>>1]->[7] > 1;
+    my $display_as_rate = @vals ? ($vals[$#vals>>1]->[7] > 1) : 0;
 
     my @rows;
     my @col_widths;