diff options
| author |   millert <millert@openbsd.org> | 2004-04-07 21:32:56 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2004-04-07 21:32:56 +0000 |
| commit | 09e75b67b2ae29a7dbcad77a47adaf75ad76bbeb (patch) | |
| tree | 5f5d158a4aece7aef6cb3cd6d3f9f73efe1fea63 /gnu/usr.bin/perl/lib/Benchmark.pm | |
| parent | perl 5.8.3 from CPAN (diff) | |
| download | wireguard-openbsd-09e75b67b2ae29a7dbcad77a47adaf75ad76bbeb.tar.xz wireguard-openbsd-09e75b67b2ae29a7dbcad77a47adaf75ad76bbeb.zip | |
merge local changes into perl-5.8.3
Diffstat (limited to 'gnu/usr.bin/perl/lib/Benchmark.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Benchmark.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/Benchmark.pm b/gnu/usr.bin/perl/lib/Benchmark.pm index c472d58ffd6..d7e34f88a68 100644 --- a/gnu/usr.bin/perl/lib/Benchmark.pm +++ b/gnu/usr.bin/perl/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; |