In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e09da698b42c898af9dba142f97e619c013fb501?hp=75bc7bf53a48f066ec16b264b61f2406366a1d21>
- Log ----------------------------------------------------------------- commit e09da698b42c898af9dba142f97e619c013fb501 Author: Karl Williamson <[email protected]> Date: Mon Jun 2 13:35:13 2014 -0600 Fix 2 overlong verbatim lines in Hash::Util And regenerate known issues to not warn about the rest ----------------------------------------------------------------------- Summary of changes: ext/Hash-Util/lib/Hash/Util.pm | 29 +++++++++++++++-------------- t/porting/known_pod_issues.dat | 1 + 2 files changed, 16 insertions(+), 14 deletions(-) diff --git a/ext/Hash-Util/lib/Hash/Util.pm b/ext/Hash-Util/lib/Hash/Util.pm index fb98d5a..06047b6 100644 --- a/ext/Hash-Util/lib/Hash/Util.pm +++ b/ext/Hash-Util/lib/Hash/Util.pm @@ -523,8 +523,9 @@ See also bucket_stats() and bucket_array(). Returns a list of statistics about a hash. - my ($keys, $buckets, $used, $quality, $utilization_ratio, $collision_pct, - $mean, $stddev, @length_counts) = bucket_stats($hashref); + my ($keys, $buckets, $used, $quality, $utilization_ratio, + $collision_pct, $mean, $stddev, @length_counts) + = bucket_stats($hashref); Fields are as follows: @@ -604,18 +605,18 @@ sub bucket_stats { Return a formatted report of the information returned by bucket_stats(). An example report looks like this: - Keys: 50 Buckets: 33/64 Quality-Score: 1.01 (Good) - Utilized Buckets: 51.56% Optimal: 78.12% Keys In Collision: 34.00% - Chain Length - mean: 1.52 stddev: 0.66 - Buckets 64 [0000000000000000000000000000000111111111111111111122222222222333] - Len 0 Pct: 48.44 [###############################] - Len 1 Pct: 29.69 [###################] - Len 2 Pct: 17.19 [###########] - Len 3 Pct: 4.69 [###] - Keys 50 [11111111111111111111111111111111122222222222222333] - Pos 1 Pct: 66.00 [#################################] - Pos 2 Pct: 28.00 [##############] - Pos 3 Pct: 6.00 [###] + Keys: 50 Buckets: 33/64 Quality-Score: 1.01 (Good) + Utilized Buckets: 51.56% Optimal: 78.12% Keys In Collision: 34.00% + Chain Length - mean: 1.52 stddev: 0.66 + Buckets 64 [0000000000000000000000000000000111111111111111111122222222222333] + Len 0 Pct: 48.44 [###############################] + Len 1 Pct: 29.69 [###################] + Len 2 Pct: 17.19 [###########] + Len 3 Pct: 4.69 [###] + Keys 50 [11111111111111111111111111111111122222222222222333] + Pos 1 Pct: 66.00 [#################################] + Pos 2 Pct: 28.00 [##############] + Pos 3 Pct: 6.00 [###] The first set of stats gives some summary statistical information, including the quality score translated into "Good", "Poor" and "Bad", diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index b53fc85..3f6ca72 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -222,6 +222,7 @@ ext/devel-peek/peek.pm ? Should you be using L<...> instead of 2 ext/dynaloader/dynaloader.pm Verbatim line length including indents exceeds 79 by 1 ext/file-find/lib/file/find.pm Verbatim line length including indents exceeds 79 by 1 ext/file-glob/glob.pm Verbatim line length including indents exceeds 79 by 15 +ext/hash-util/lib/hash/util.pm Verbatim line length including indents exceeds 79 by 2 ext/pod-html/testdir/perlpodspec-copy.pod Verbatim line length including indents exceeds 79 by 8 ext/pod-html/testdir/perlvar-copy.pod ? Should you be using L<...> instead of 3 ext/pod-html/testdir/perlvar-copy.pod Verbatim line length including indents exceeds 79 by 6 -- Perl5 Master Repository
