podcheck.t: Correctly count columns
authorKarl Williamson <public@khwilliamson.com>
Sun, 31 Jul 2011 22:51:04 +0000 (16:51 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 31 Jul 2011 23:01:42 +0000 (17:01 -0600)
The comment being removed that justified the +1 also being removed is
specious; it did not consider the size of the line being output.

t/porting/known_pod_issues.dat
t/porting/podcheck.t

index 6d58627..afc179c 100644 (file)
@@ -132,7 +132,7 @@ Win32::Locale
 YAML
 YAML::Syck
 YAML::Tiny
-dist/attribute-handlers/lib/attribute/handlers.pm      Verbatim line length including indents exceeds 80 by    19
+dist/attribute-handlers/lib/attribute/handlers.pm      Verbatim line length including indents exceeds 80 by    17
 dist/base/lib/fields.pm        Verbatim line length including indents exceeds 80 by    1
 dist/bignum/lib/bigint.pm      Apparent broken link    1
 dist/bignum/lib/bigint.pm      Verbatim line length including indents exceeds 80 by    1
@@ -146,155 +146,148 @@ dist/cwd/lib/file/spec/unix.pm  Verbatim line length including indents exceeds 80
 dist/cwd/lib/file/spec/vms.pm  Verbatim line length including indents exceeds 80 by    1
 dist/cwd/lib/file/spec/win32.pm        Verbatim line length including indents exceeds 80 by    1
 dist/data-dumper/dumper.pm     ? Should you be using L<...> instead of 1
-dist/data-dumper/dumper.pm     Verbatim line length including indents exceeds 80 by    2
+dist/data-dumper/dumper.pm     Verbatim line length including indents exceeds 80 by    1
 dist/extutils-install/lib/extutils/installed.pm        Verbatim line length including indents exceeds 80 by    2
 dist/extutils-parsexs/lib/extutils/typemaps.pm Verbatim line length including indents exceeds 80 by    4
 dist/extutils-parsexs/lib/extutils/typemaps/outputmap.pm       Verbatim line length including indents exceeds 80 by    1
 dist/extutils-parsexs/lib/perlxs.pod   Verbatim line length including indents exceeds 80 by    4
-dist/extutils-parsexs/lib/perlxstut.pod        Verbatim line length including indents exceeds 80 by    10
+dist/extutils-parsexs/lib/perlxstut.pod        Verbatim line length including indents exceeds 80 by    9
 dist/filter-simple/lib/filter/simple.pm        Verbatim paragraph in NAME section      1
 dist/i18n-langtags/lib/i18n/langtags.pm        Verbatim line length including indents exceeds 80 by    2
 dist/io/io.pm  Verbatim line length including indents exceeds 80 by    1
-dist/io/lib/io/socket/inet.pm  Verbatim line length including indents exceeds 80 by    5
+dist/io/lib/io/socket/inet.pm  Verbatim line length including indents exceeds 80 by    3
 dist/locale-maketext/lib/locale/maketext.pod   No items in =over / =back list  1
 dist/locale-maketext/lib/locale/maketext.pod   Verbatim line length including indents exceeds 80 by    1
 dist/locale-maketext/lib/locale/maketext/tpj13.pod     No items in =over / =back list  3
 dist/math-bigint/lib/math/bigfloat.pm  Apparent broken link    7
 dist/math-bigint/lib/math/bigfloat.pm  Apparent internal link is missing its forward slash     6
-dist/math-bigint/lib/math/bigfloat.pm  Verbatim line length including indents exceeds 80 by    28
+dist/math-bigint/lib/math/bigfloat.pm  Verbatim line length including indents exceeds 80 by    25
 dist/math-bigint/lib/math/bigint.pm    Apparent broken link    5
 dist/math-bigint/lib/math/bigint.pm    Apparent internal link is missing its forward slash     7
-dist/math-bigint/lib/math/bigint.pm    Verbatim line length including indents exceeds 80 by    122
+dist/math-bigint/lib/math/bigint.pm    Verbatim line length including indents exceeds 80 by    109
 dist/math-bigint/lib/math/bigint.pm    empty section in previous paragraph     1
 dist/math-bigint/lib/math/bigint/calcemu.pm    Apparent broken link    1
 dist/math-bigint/lib/math/bigint/calcemu.pm    empty section in previous paragraph     3
 dist/math-bigrat/lib/math/bigrat.pm    Apparent broken link    3
 dist/math-bigrat/lib/math/bigrat.pm    Apparent internal link is missing its forward slash     1
-dist/math-bigrat/lib/math/bigrat.pm    Verbatim line length including indents exceeds 80 by    7
-dist/module-corelist/blib/script/corelist      Verbatim line length including indents exceeds 80 by    1
+dist/math-bigrat/lib/math/bigrat.pm    Verbatim line length including indents exceeds 80 by    5
 dist/module-corelist/lib/module/corelist.pm    Verbatim line length including indents exceeds 80 by    4
 dist/net-ping/lib/net/ping.pm  Verbatim line length including indents exceeds 80 by    2
-dist/perlfaq/lib/perlfaq2.pod  Verbatim line length including indents exceeds 80 by    1
-dist/perlfaq/lib/perlfaq4.pod  Verbatim line length including indents exceeds 80 by    16
-dist/perlfaq/lib/perlfaq5.pod  Verbatim line length including indents exceeds 80 by    40
-dist/perlfaq/lib/perlfaq6.pod  Verbatim line length including indents exceeds 80 by    36
+dist/perlfaq/lib/perlfaq4.pod  Verbatim line length including indents exceeds 80 by    14
+dist/perlfaq/lib/perlfaq5.pod  Verbatim line length including indents exceeds 80 by    32
+dist/perlfaq/lib/perlfaq6.pod  Verbatim line length including indents exceeds 80 by    34
 dist/perlfaq/lib/perlfaq7.pod  Verbatim line length including indents exceeds 80 by    7
 dist/perlfaq/lib/perlfaq8.pod  Verbatim line length including indents exceeds 80 by    20
 dist/perlfaq/lib/perlfaq9.pod  Verbatim line length including indents exceeds 80 by    7
-dist/safe/safe.pm      Verbatim line length including indents exceeds 80 by    1
 dist/safe/safe.pm      empty section in previous paragraph     1
-dist/selfloader/lib/selfloader.pm      Verbatim line length including indents exceeds 80 by    14
-dist/storable/storable.pm      Verbatim line length including indents exceeds 80 by    4
+dist/selfloader/lib/selfloader.pm      Verbatim line length including indents exceeds 80 by    10
+dist/storable/storable.pm      Verbatim line length including indents exceeds 80 by    3
 dist/term-readline/lib/term/readline.pm        Verbatim line length including indents exceeds 80 by    1
 dist/thread-queue/lib/thread/queue.pm  Verbatim line length including indents exceeds 80 by    4
 dist/threads/lib/threads.pm    Verbatim line length including indents exceeds 80 by    3
-ext/b/b.pm     Verbatim line length including indents exceeds 80 by    1
 ext/b/b/concise.pm     Verbatim line length including indents exceeds 80 by    1
 ext/devel-peek/peek.pm ? Should you be using L<...> instead of 2
 ext/devel-peek/peek.pm Verbatim line length including indents exceeds 80 by    2
 ext/dynaloader/dynaloader.pm   Verbatim line length including indents exceeds 80 by    1
-ext/file-glob/glob.pm  Verbatim line length including indents exceeds 80 by    15
+ext/file-glob/glob.pm  Verbatim line length including indents exceeds 80 by    12
 ext/hash-util-fieldhash/lib/hash/util/fieldhash.pm     Verbatim line length including indents exceeds 80 by    2
 ext/i18n-langinfo/langinfo.pm  Verbatim line length including indents exceeds 80 by    1
-ext/opcode/opcode.pm   Verbatim line length including indents exceeds 80 by    10
-ext/posix/lib/posix.pod        Verbatim line length including indents exceeds 80 by    29
+ext/opcode/opcode.pm   Verbatim line length including indents exceeds 80 by    7
+ext/posix/lib/posix.pod        Verbatim line length including indents exceeds 80 by    28
 ext/re/re.pm   Verbatim line length including indents exceeds 80 by    6
 ext/vms-dclsym/dclsym.pm       ? Should you be using L<...> instead of 1
 ext/vms-dclsym/dclsym.pm       Verbatim line length including indents exceeds 80 by    1
 ext/vms-stdio/stdio.pm Verbatim line length including indents exceeds 80 by    1
 ext/xs-apitest/apitest.pm      Verbatim line length including indents exceeds 80 by    1
 install        ? Should you be using F<...> or maybe L<...> instead of 1
-install        Verbatim line length including indents exceeds 80 by    10
+install        Verbatim line length including indents exceeds 80 by    8
 installhtml    Verbatim line length including indents exceeds 80 by    5
 os2/os2/os2-extattr/extattr.pm ? Should you be using F<...> or maybe L<...> instead of 1
-os2/os2/os2-process/process.pm Verbatim line length including indents exceeds 80 by    27
+os2/os2/os2-process/process.pm Verbatim line length including indents exceeds 80 by    20
 os2/os2/os2-rexx/dll/dll.pm    Verbatim line length including indents exceeds 80 by    2
 os2/os2/os2-rexx/rexx.pm       Verbatim line length including indents exceeds 80 by    1
-pod/perl.pod   Verbatim line length including indents exceeds 80 by    9
-pod/perlaix.pod        Verbatim line length including indents exceeds 80 by    11
+pod/perl.pod   Verbatim line length including indents exceeds 80 by    7
+pod/perlaix.pod        Verbatim line length including indents exceeds 80 by    6
 pod/perlapi.pod        ? Should you be using L<...> instead of 86
-pod/perlapi.pod        Verbatim line length including indents exceeds 80 by    24
+pod/perlapi.pod        Verbatim line length including indents exceeds 80 by    6
 pod/perlapi.pod        unresolved internal link        3
 pod/perlapio.pod       Verbatim line length including indents exceeds 80 by    5
 pod/perlbook.pod       Verbatim line length including indents exceeds 80 by    1
 pod/perlcall.pod       Verbatim line length including indents exceeds 80 by    2
 pod/perlce.pod Verbatim line length including indents exceeds 80 by    2
 pod/perlclib.pod       Verbatim line length including indents exceeds 80 by    3
-pod/perlcygwin.pod     Verbatim line length including indents exceeds 80 by    27
+pod/perlcygwin.pod     Verbatim line length including indents exceeds 80 by    22
 pod/perldbmfilter.pod  Verbatim line length including indents exceeds 80 by    1
-pod/perldebguts.pod    Verbatim line length including indents exceeds 80 by    68
-pod/perldebtut.pod     Verbatim line length including indents exceeds 80 by    22
+pod/perldebguts.pod    Verbatim line length including indents exceeds 80 by    55
+pod/perldebtut.pod     Verbatim line length including indents exceeds 80 by    20
 pod/perldebug.pod      Verbatim line length including indents exceeds 80 by    3
 pod/perldiag.pod       =item type mismatch     1
-pod/perldiag.pod       Verbatim line length including indents exceeds 80 by    2
-pod/perldsc.pod        Verbatim line length including indents exceeds 80 by    4
-pod/perldtrace.pod     Verbatim line length including indents exceeds 80 by    22
-pod/perlebcdic.pod     Verbatim line length including indents exceeds 80 by    273
-pod/perlembed.pod      Verbatim line length including indents exceeds 80 by    27
+pod/perldiag.pod       Verbatim line length including indents exceeds 80 by    1
+pod/perldsc.pod        Verbatim line length including indents exceeds 80 by    3
+pod/perldtrace.pod     Verbatim line length including indents exceeds 80 by    21
+pod/perlebcdic.pod     Verbatim line length including indents exceeds 80 by    272
+pod/perlembed.pod      Verbatim line length including indents exceeds 80 by    14
 pod/perlfunc.pod       There is more than one target   1
-pod/perlfunc.pod       Verbatim line length including indents exceeds 80 by    168
-pod/perlgit.pod        Verbatim line length including indents exceeds 80 by    14
-pod/perlgpl.pod        Verbatim line length including indents exceeds 80 by    50
+pod/perlfunc.pod       Verbatim line length including indents exceeds 80 by    157
+pod/perlgit.pod        Verbatim line length including indents exceeds 80 by    13
+pod/perlgpl.pod        Verbatim line length including indents exceeds 80 by    31
 pod/perlguts.pod       ? Should you be using F<...> or maybe L<...> instead of 2
 pod/perlguts.pod       ? Should you be using L<...> instead of 1
-pod/perlguts.pod       Verbatim line length including indents exceeds 80 by    25
+pod/perlguts.pod       Verbatim line length including indents exceeds 80 by    23
 pod/perlhack.pod       ? Should you be using L<...> instead of 1
-pod/perlhack.pod       Verbatim line length including indents exceeds 80 by    1
 pod/perlhacktips.pod   Verbatim line length including indents exceeds 80 by    1
-pod/perlhist.pod       Verbatim line length including indents exceeds 80 by    2
+pod/perlhist.pod       Verbatim line length including indents exceeds 80 by    1
 pod/perlhpux.pod       Verbatim line length including indents exceeds 80 by    2
 pod/perlhurd.pod       Verbatim line length including indents exceeds 80 by    2
 pod/perlintern.pod     ? Should you be using L<...> instead of 5
-pod/perlintern.pod     Verbatim line length including indents exceeds 80 by    2
 pod/perlinterp.pod     ? Should you be using L<...> instead of 1
 pod/perlinterp.pod     Verbatim line length including indents exceeds 80 by    1
-pod/perlintro.pod      Verbatim line length including indents exceeds 80 by    11
-pod/perliol.pod        Verbatim line length including indents exceeds 80 by    8
-pod/perlipc.pod        Verbatim line length including indents exceeds 80 by    21
+pod/perlintro.pod      Verbatim line length including indents exceeds 80 by    8
+pod/perliol.pod        Verbatim line length including indents exceeds 80 by    7
+pod/perlipc.pod        Verbatim line length including indents exceeds 80 by    18
 pod/perlirix.pod       Verbatim line length including indents exceeds 80 by    4
 pod/perllocale.pod     Verbatim line length including indents exceeds 80 by    4
 pod/perllol.pod        Verbatim line length including indents exceeds 80 by    4
 pod/perlmacosx.pod     Verbatim line length including indents exceeds 80 by    3
-pod/perlmod.pod        Verbatim line length including indents exceeds 80 by    3
+pod/perlmod.pod        Verbatim line length including indents exceeds 80 by    2
 pod/perlmodlib.pod     Verbatim line length including indents exceeds 80 by    3
 pod/perlmodstyle.pod   Verbatim line length including indents exceeds 80 by    2
 pod/perlmpeix.pod      Verbatim line length including indents exceeds 80 by    2
 pod/perlmroapi.pod     ? Should you be using L<...> instead of 1
 pod/perlnetware.pod    Verbatim line length including indents exceeds 80 by    4
 pod/perlnewmod.pod     Verbatim line length including indents exceeds 80 by    1
-pod/perlop.pod Verbatim line length including indents exceeds 80 by    30
+pod/perlop.pod Verbatim line length including indents exceeds 80 by    26
 pod/perlos2.pod        ? Should you be using L<...> instead of 2
-pod/perlos2.pod        Verbatim line length including indents exceeds 80 by    22
+pod/perlos2.pod        Verbatim line length including indents exceeds 80 by    21
 pod/perlos390.pod      Verbatim line length including indents exceeds 80 by    11
-pod/perlpacktut.pod    Verbatim line length including indents exceeds 80 by    6
-pod/perlperf.pod       Verbatim line length including indents exceeds 80 by    154
-pod/perlpodspec.pod    Verbatim line length including indents exceeds 80 by    9
+pod/perlpacktut.pod    Verbatim line length including indents exceeds 80 by    4
+pod/perlperf.pod       Verbatim line length including indents exceeds 80 by    151
+pod/perlpodspec.pod    Verbatim line length including indents exceeds 80 by    1
 pod/perlpodstyle.pod   Verbatim line length including indents exceeds 80 by    1
-pod/perlreapi.pod      Verbatim line length including indents exceeds 80 by    17
+pod/perlreapi.pod      Verbatim line length including indents exceeds 80 by    16
 pod/perlrebackslash.pod        Verbatim line length including indents exceeds 80 by    1
 pod/perlref.pod        Verbatim line length including indents exceeds 80 by    1
-pod/perlreguts.pod     Verbatim line length including indents exceeds 80 by    17
+pod/perlreguts.pod     Verbatim line length including indents exceeds 80 by    13
 pod/perlrequick.pod    Verbatim line length including indents exceeds 80 by    3
-pod/perlretut.pod      Verbatim line length including indents exceeds 80 by    13
+pod/perlretut.pod      Verbatim line length including indents exceeds 80 by    11
 pod/perlrun.pod        Verbatim line length including indents exceeds 80 by    2
-pod/perlsec.pod        Verbatim line length including indents exceeds 80 by    1
 pod/perlsolaris.pod    Verbatim line length including indents exceeds 80 by    14
 pod/perlsource.pod     ? Should you be using F<...> or maybe L<...> instead of 1
 pod/perlsub.pod        ? Should you be using F<...> or maybe L<...> instead of 3
-pod/perlsub.pod        Verbatim line length including indents exceeds 80 by    4
-pod/perlsymbian.pod    Verbatim line length including indents exceeds 80 by    20
-pod/perlsyn.pod        Verbatim line length including indents exceeds 80 by    7
-pod/perlthrtut.pod     Verbatim line length including indents exceeds 80 by    5
-pod/perltie.pod        Verbatim line length including indents exceeds 80 by    13
-pod/perltodo.pod       Verbatim line length including indents exceeds 80 by    7
+pod/perlsub.pod        Verbatim line length including indents exceeds 80 by    1
+pod/perlsymbian.pod    Verbatim line length including indents exceeds 80 by    15
+pod/perlsyn.pod        Verbatim line length including indents exceeds 80 by    6
+pod/perlthrtut.pod     Verbatim line length including indents exceeds 80 by    4
+pod/perltie.pod        Verbatim line length including indents exceeds 80 by    10
+pod/perltodo.pod       Verbatim line length including indents exceeds 80 by    5
 pod/perltodo.pod       empty section in previous paragraph     2
 pod/perltoot.pod       Verbatim line length including indents exceeds 80 by    1
 pod/perltrap.pod       ? Should you be using F<...> or maybe L<...> instead of 1
-pod/perltrap.pod       Verbatim line length including indents exceeds 80 by    15
+pod/perltrap.pod       Verbatim line length including indents exceeds 80 by    14
 pod/perltru64.pod      ? Should you be using F<...> or maybe L<...> instead of 1
 pod/perltru64.pod      Verbatim line length including indents exceeds 80 by    4
 pod/perlunifaq.pod     empty section in previous paragraph     1
-pod/perluniintro.pod   Verbatim line length including indents exceeds 80 by    3
+pod/perluniintro.pod   Verbatim line length including indents exceeds 80 by    1
 pod/perluniprops.pod   =item type mismatch     6
 pod/perlvar.pod        Verbatim line length including indents exceeds 80 by    9
 pod/perlvms.pod        ? Should you be using F<...> or maybe L<...> instead of 1
@@ -304,12 +297,12 @@ porting/epigraphs.pod     Verbatim line length including indents exceeds 80 by    3
 porting/expand-macro.pl        Verbatim line length including indents exceeds 80 by    2
 porting/how_to_write_a_perldelta.pod   There is no NAME        1
 porting/how_to_write_a_perldelta.pod   Verbatim line length including indents exceeds 80 by    3
-porting/pumpkin.pod    Verbatim line length including indents exceeds 80 by    9
-porting/release_managers_guide.pod     Verbatim line length including indents exceeds 80 by    9
+porting/pumpkin.pod    Verbatim line length including indents exceeds 80 by    6
+porting/release_managers_guide.pod     Verbatim line length including indents exceeds 80 by    7
 porting/release_managers_guide.pod     Verbatim paragraph in NAME section      1
 porting/release_schedule.pod   There is no NAME        1
-symbian/perlutil.pod   Verbatim line length including indents exceeds 80 by    4
-utils/c2ph     Verbatim line length including indents exceeds 80 by    44
+symbian/perlutil.pod   Verbatim line length including indents exceeds 80 by    3
+utils/c2ph     Verbatim line length including indents exceeds 80 by    42
 utils/libnetcfg        Apparent broken link    1
 vms/ext/filespec.pm    Verbatim line length including indents exceeds 80 by    1
 x2p/a2p.pod    empty section in previous paragraph     2
@@ -317,26 +310,18 @@ lib/benchmark.pm  Verbatim line length including indents exceeds 80 by    4
 lib/cpan/debug.pm      There is no NAME        1
 lib/cpan/handleconfig.pm       =head2 without preceding higher level   1
 lib/cpan/handleconfig.pm       There is no NAME        1
-lib/class/struct.pm    Verbatim line length including indents exceeds 80 by    7
+lib/class/struct.pm    Verbatim line length including indents exceeds 80 by    6
 lib/config.pod ? Should you be using L<...> instead of -1
 lib/config.pod nested commands F<...F<...>...> 3
 lib/db.pm      Verbatim line length including indents exceeds 80 by    2
-lib/dbm_filter.pm      Verbatim line length including indents exceeds 80 by    1
-lib/dbm_filter/compress.pm     Verbatim line length including indents exceeds 80 by    1
-lib/dbm_filter/encode.pm       Verbatim line length including indents exceeds 80 by    1
-lib/dbm_filter/int32.pm        Verbatim line length including indents exceeds 80 by    1
-lib/dbm_filter/null.pm Verbatim line length including indents exceeds 80 by    1
-lib/dbm_filter/utf8.pm Verbatim line length including indents exceeds 80 by    1
 lib/english.pm Verbatim line length including indents exceeds 80 by    1
 lib/exporter.pm        Verbatim line length including indents exceeds 80 by    2
-lib/extutils/embed.pm  Verbatim line length including indents exceeds 80 by    2
+lib/extutils/embed.pm  Verbatim line length including indents exceeds 80 by    1
 lib/extutils/xssymset.pm       Verbatim line length including indents exceeds 80 by    1
 lib/file/basename.pm   Verbatim line length including indents exceeds 80 by    2
 lib/file/find.pm       Verbatim line length including indents exceeds 80 by    1
 lib/getopt/std.pm      Verbatim line length including indents exceeds 80 by    1
-lib/perlio.pm  Verbatim line length including indents exceeds 80 by    2
-lib/pod/text/overstrike.pm     Verbatim line length including indents exceeds 80 by    1
-lib/tie/array.pm       Verbatim line length including indents exceeds 80 by    1
+lib/perlio.pm  Verbatim line length including indents exceeds 80 by    1
 lib/tie/hash.pm        Verbatim line length including indents exceeds 80 by    3
 lib/tie/scalar.pm      Verbatim line length including indents exceeds 80 by    1
 lib/unicode/ucd.pm     Verbatim line length including indents exceeds 80 by    1
@@ -346,7 +331,7 @@ lib/overload.pm     Verbatim line length including indents exceeds 80 by    1
 lib/perl5db.pl ? Should you be using L<...> instead of 1
 lib/perl5db.pl Verbatim line length including indents exceeds 80 by    1
 lib/strict.pm  Verbatim line length including indents exceeds 80 by    1
-lib/utf8.pm    Verbatim line length including indents exceeds 80 by    4
+lib/utf8.pm    Verbatim line length including indents exceeds 80 by    3
 lib/version.pod        Verbatim line length including indents exceeds 80 by    2
 lib/version/internals.pod      Verbatim line length including indents exceeds 80 by    2
 lib/vmsish.pm  Verbatim line length including indents exceeds 80 by    1
index 1830410..85076d2 100644 (file)
@@ -672,12 +672,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
             $lines[$i] =~ s/\s+$//;
             my $indent = $self->get_current_indent;
             my $exceeds = length(Text::Tabs::expand($lines[$i]))
-
-                          # To see why the +1 is needed, consider
-                          # $MAX_LINE_LENGTH == 80, with an $indent also of
-                          # 80.  Then, any text starts in column 81, and so
-                          # a line with length 1 exceeds 80 by 1.
-                          + $indent - $MAX_LINE_LENGTH + 1;
+                          + $indent - $MAX_LINE_LENGTH;
             next unless $exceeds > 0;
             my ($file, $line) = $pod_para->file_line;
             $self->poderror({ -line => $line + $i, -file => $file,