This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix 2 overlong verbatim lines in Hash::Util
authorKarl Williamson <khw@cpan.org>
Mon, 2 Jun 2014 19:35:13 +0000 (13:35 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 2 Jun 2014 19:47:57 +0000 (13:47 -0600)
And regenerate known issues to not warn about the rest

ext/Hash-Util/lib/Hash/Util.pm
t/porting/known_pod_issues.dat

index fb98d5a..06047b6 100644 (file)
@@ -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",
index b53fc85..3f6ca72 100644 (file)
@@ -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