Re: [perl #24398] Benchmark.pm cmpthese segfault

Message-ID: <3FA8B9D1.2020806@stason.org>

p4raw-id: //depot/perl@21671

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index c472d58..6129828 100644 (file)
--- a/lib/Benchmark.pm
+++ b/lib/Benchmark.pm
@@ -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;