Account for 'less' reserving an extra column

After decades of stability, the 'less' pager project decided to claim an
extra column for its own use when called with certain common options.

This commit changes some of the auto-generating tools to wrap one column
earlier to compensate, and changes podcheck to also whine on wide
verbatim text one column less.  But it changes the podcheck data base
to grandfather-in all the many existing places that exceed that amount.
That means only changes made to pods after this commit will be held to
the stricter value.

Of course, what this means is those pods will wrap or truncate in these
places on an 80 column window, making them harder to read, when used
with 'less' and when it is called with the options that reserve those
two columns.  Patches welcome.

I haven't seen the wrapping problem with perldoc, and haven't
investigated much.

5 files changed, 208 insertions, 92 deletions

diff --git a/autodoc.pl b/autodoc.pl
index 9df6266a9e..06361b8f25 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -66,9 +66,9 @@ use Text::Tabs;
 use strict;
 use warnings;
 
-# 80 column terminal - 1 for pager adding a column; -7 for nroff
+# 80 column terminal - 2 for pager adding 2 columns; -7 for nroff
 # indent;
-my $max_width = 80 - 1 - 7;
+my $max_width = 80 - 2 - 7;
 
 if (@ARGV) {
     my $workdir = shift;
diff --git a/regen/regcomp.pl b/regen/regcomp.pl
index 34e7ec8e39..4994a8bcf1 100644
--- a/regen/regcomp.pl
+++ b/regen/regcomp.pl
@@ -397,9 +397,10 @@ sub print_state_def_line
     my $hanging = length $line;     # Indent any subsequent line to this pos
     $line .= sprintf "0x%02x", $id;
 
-    my $columns = 79;
+    my $columns = 78;
 
-    # wrap() needs 80 to achieve 79.
+    # From the documentation: 'In fact, every resulting line will have length
+    # of no more than "$columns - 1"'
     $line = wrap($columns + 1, "", " " x $hanging, "$line $comment");
     chomp $line;            # wrap always adds a trailing \n
     $line =~ s/ \s+ $ //x;  # trim, just in case.
diff --git a/regnodes.h b/regnodes.h
index 98de0bb733..94b71102eb 100644
--- a/regnodes.h
+++ b/regnodes.h
@@ -102,8 +102,9 @@
 #define BOUNDL_t8_pb                    38  /*      0x026 */
 #define BOUNDL_t8_p8                    39  /*      0x027 */
 
-#define BOUNDU                       10     /* 0x0a Match "" at any boundary of
-                                               a given type using /u rules. */
+#define BOUNDU                       10     /* 0x0a Match "" at any boundary
+                                               of a given type using /u rules.
+                                            */
 #define BOUNDU_tb_pb                    40  /*      0x028 */
 #define BOUNDU_tb_p8                    41  /*      0x029 */
 #define BOUNDU_t8_pb                    42  /*      0x02a */
@@ -124,9 +125,9 @@
 #define NBOUND_t8_pb                    50  /*      0x032 */
 #define NBOUND_t8_p8                    51  /*      0x033 */
 
-#define NBOUNDL                      13     /* 0x0d Like NBOUND/NBOUNDU, but \w
-                                               and \W are defined by current
-                                               locale */
+#define NBOUNDL                      13     /* 0x0d Like NBOUND/NBOUNDU, but
+                                               \w and \W are defined by
+                                               current locale */
 #define NBOUNDL_tb_pb                   52  /*      0x034 */
 #define NBOUNDL_tb_p8                   53  /*      0x035 */
 #define NBOUNDL_t8_pb                   54  /*      0x036 */
@@ -155,7 +156,8 @@
 #define REG_ANY_t8_pb                   66  /*      0x042 */
 #define REG_ANY_t8_p8                   67  /*      0x043 */
 
-#define SANY                         17     /* 0x11 Match any one character. */
+#define SANY                         17     /* 0x11 Match any one character.
+                                            */
 #define SANY_tb_pb                      68  /*      0x044 */
 #define SANY_tb_p8                      69  /*      0x045 */
 #define SANY_t8_pb                      70  /*      0x046 */
@@ -192,9 +194,9 @@
 
 #define ANYOFH                       22     /* 0x16 Like ANYOF, but only has
                                                "High" matches, none in the
-                                               bitmap; the flags field contains
-                                               the lowest matchable UTF-8 start
-                                               byte */
+                                               bitmap; the flags field
+                                               contains the lowest matchable
+                                               UTF-8 start byte */
 #define ANYOFH_tb_pb                    88  /*      0x058 */
 #define ANYOFH_tb_p8                    89  /*      0x059 */
 #define ANYOFH_t8_pb                    90  /*      0x05a */
@@ -210,9 +212,9 @@
 #define ANYOFHb_t8_p8                   95  /*      0x05f */
 
 #define ANYOFHr                      24     /* 0x18 Like ANYOFH, but the flags
-                                               field contains packed bounds for
-                                               all matchable UTF-8 start bytes.
-                                            */
+                                               field contains packed bounds
+                                               for all matchable UTF-8 start
+                                               bytes. */
 #define ANYOFHr_tb_pb                   96  /*      0x060 */
 #define ANYOFHr_tb_p8                   97  /*      0x061 */
 #define ANYOFHr_t8_pb                   98  /*      0x062 */
@@ -322,8 +324,8 @@
 #define NPOSIXA_t8_pb                  150  /*      0x096 */
 #define NPOSIXA_t8_p8                  151  /*      0x097 */
 
-#define CLUMP                        38     /* 0x26 Match any extended grapheme
-                                               cluster sequence */
+#define CLUMP                        38     /* 0x26 Match any extended
+                                               grapheme cluster sequence */
 #define CLUMP_tb_pb                    152  /*      0x098 */
 #define CLUMP_tb_p8                    153  /*      0x099 */
 #define CLUMP_t8_pb                    154  /*      0x09a */
@@ -359,35 +361,37 @@
 #define EXACTL_t8_pb                   170  /*      0x0aa */
 #define EXACTL_t8_p8                   171  /*      0x0ab */
 
-#define EXACTF                       43     /* 0x2b Like EXACT, but match using
-                                               /id rules; (string not UTF-8,
-                                               ASCII folded; non-ASCII not) */
+#define EXACTF                       43     /* 0x2b Like EXACT, but match
+                                               using /id rules; (string not
+                                               UTF-8, ASCII folded; non-ASCII
+                                               not) */
 #define EXACTF_tb_pb                   172  /*      0x0ac */
 #define EXACTF_tb_p8                   173  /*      0x0ad */
 #define EXACTF_t8_pb                   174  /*      0x0ae */
 #define EXACTF_t8_p8                   175  /*      0x0af */
 
-#define EXACTFL                      44     /* 0x2c Like EXACT, but match using
-                                               /il rules; (string not likely to
-                                               be folded) */
+#define EXACTFL                      44     /* 0x2c Like EXACT, but match
+                                               using /il rules; (string not
+                                               likely to be folded) */
 #define EXACTFL_tb_pb                  176  /*      0x0b0 */
 #define EXACTFL_tb_p8                  177  /*      0x0b1 */
 #define EXACTFL_t8_pb                  178  /*      0x0b2 */
 #define EXACTFL_t8_p8                  179  /*      0x0b3 */
 
-#define EXACTFU                      45     /* 0x2d Like EXACT, but match using
-                                               /iu rules; (string folded) */
+#define EXACTFU                      45     /* 0x2d Like EXACT, but match
+                                               using /iu rules; (string
+                                               folded) */
 #define EXACTFU_tb_pb                  180  /*      0x0b4 */
 #define EXACTFU_tb_p8                  181  /*      0x0b5 */
 #define EXACTFU_t8_pb                  182  /*      0x0b6 */
 #define EXACTFU_t8_p8                  183  /*      0x0b7 */
 
-#define EXACTFAA                     46     /* 0x2e Like EXACT, but match using
-                                               /iaa rules; (string folded
-                                               except MICRO in non-UTF8
+#define EXACTFAA                     46     /* 0x2e Like EXACT, but match
+                                               using /iaa rules; (string
+                                               folded except MICRO in non-UTF8
                                                patterns; doesn't contain SHARP
-                                               S unless UTF-8; folded length <=
-                                               unfolded) */
+                                               S unless UTF-8; folded length
+                                               <= unfolded) */
 #define EXACTFAA_tb_pb                 184  /*      0x0b8 */
 #define EXACTFAA_tb_p8                 185  /*      0x0b9 */
 #define EXACTFAA_t8_pb                 186  /*      0x0ba */
@@ -403,10 +407,10 @@
 #define EXACTFAA_NO_TRIE_t8_pb         190  /*      0x0be */
 #define EXACTFAA_NO_TRIE_t8_p8         191  /*      0x0bf */
 
-#define EXACTFUP                     48     /* 0x30 Like EXACT, but match using
-                                               /iu rules; (string not UTF-8,
-                                               folded except MICRO: hence
-                                               Problematic) */
+#define EXACTFUP                     48     /* 0x30 Like EXACT, but match
+                                               using /iu rules; (string not
+                                               UTF-8, folded except MICRO:
+                                               hence Problematic) */
 #define EXACTFUP_tb_pb                 192  /*      0x0c0 */
 #define EXACTFUP_tb_p8                 193  /*      0x0c1 */
 #define EXACTFUP_t8_pb                 194  /*      0x0c2 */
@@ -414,7 +418,8 @@
 
 #define EXACTFLU8                    49     /* 0x31 Like EXACTFU, but use /il,
                                                UTF-8, (string is folded, and
-                                               everything in it is above 255 */
+                                               everything in it is above 255
+                                            */
 #define EXACTFLU8_tb_pb                196  /*      0x0c4 */
 #define EXACTFLU8_tb_p8                197  /*      0x0c5 */
 #define EXACTFLU8_t8_pb                198  /*      0x0c6 */
@@ -427,8 +432,9 @@
 #define EXACT_REQ8_t8_pb               202  /*      0x0ca */
 #define EXACT_REQ8_t8_p8               203  /*      0x0cb */
 
-#define LEXACT_REQ8                  51     /* 0x33 Like LEXACT, but only UTF-8
-                                               encoded targets can match */
+#define LEXACT_REQ8                  51     /* 0x33 Like LEXACT, but only
+                                               UTF-8 encoded targets can match
+                                            */
 #define LEXACT_REQ8_tb_pb              204  /*      0x0cc */
 #define LEXACT_REQ8_tb_p8              205  /*      0x0cd */
 #define LEXACT_REQ8_t8_pb              206  /*      0x0ce */
@@ -445,7 +451,8 @@
 #define EXACTFU_S_EDGE               53     /* 0x35 /di rules, but nothing in
                                                it precludes /ui, except begins
                                                and/or ends with [Ss]; (string
-                                               not UTF-8; compile-time only) */
+                                               not UTF-8; compile-time only)
+                                            */
 #define EXACTFU_S_EDGE_tb_pb           212  /*      0x0d4 */
 #define EXACTFU_S_EDGE_tb_p8           213  /*      0x0d5 */
 #define EXACTFU_S_EDGE_t8_pb           214  /*      0x0d6 */
@@ -498,15 +505,15 @@
 #define TAIL_t8_pb                     242  /*      0x0f2 */
 #define TAIL_t8_p8                     243  /*      0x0f3 */
 
-#define STAR                         61     /* 0x3d Match this (simple) thing 0
-                                               or more times. */
+#define STAR                         61     /* 0x3d Match this (simple) thing
+                                               0 or more times. */
 #define STAR_tb_pb                     244  /*      0x0f4 */
 #define STAR_tb_p8                     245  /*      0x0f5 */
 #define STAR_t8_pb                     246  /*      0x0f6 */
 #define STAR_t8_p8                     247  /*      0x0f7 */
 
-#define PLUS                         62     /* 0x3e Match this (simple) thing 1
-                                               or more times. */
+#define PLUS                         62     /* 0x3e Match this (simple) thing
+                                               1 or more times. */
 #define PLUS_tb_pb                     248  /*      0x0f8 */
 #define PLUS_tb_p8                     249  /*      0x0f9 */
 #define PLUS_t8_pb                     250  /*      0x0fa */
@@ -526,8 +533,9 @@
 #define CURLYN_t8_pb                   258  /*      0x102 */
 #define CURLYN_t8_p8                   259  /*      0x103 */
 
-#define CURLYM                       65     /* 0x41 Capture this medium-complex
-                                               thing {n,m} times. */
+#define CURLYM                       65     /* 0x41 Capture this
+                                               medium-complex thing {n,m}
+                                               times. */
 #define CURLYM_tb_pb                   260  /*      0x104 */
 #define CURLYM_tb_p8                   261  /*      0x105 */
 #define CURLYM_t8_pb                   262  /*      0x106 */
@@ -540,22 +548,22 @@
 #define CURLYX_t8_pb                   266  /*      0x10a */
 #define CURLYX_t8_p8                   267  /*      0x10b */
 
-#define WHILEM                       67     /* 0x43 Do curly processing and see
-                                               if rest matches. */
+#define WHILEM                       67     /* 0x43 Do curly processing and
+                                               see if rest matches. */
 #define WHILEM_tb_pb                   268  /*      0x10c */
 #define WHILEM_tb_p8                   269  /*      0x10d */
 #define WHILEM_t8_pb                   270  /*      0x10e */
 #define WHILEM_t8_p8                   271  /*      0x10f */
 
-#define OPEN                         68     /* 0x44 Mark this point in input as
-                                               start of #n. */
+#define OPEN                         68     /* 0x44 Mark this point in input
+                                               as start of #n. */
 #define OPEN_tb_pb                     272  /*      0x110 */
 #define OPEN_tb_p8                     273  /*      0x111 */
 #define OPEN_t8_pb                     274  /*      0x112 */
 #define OPEN_t8_p8                     275  /*      0x113 */
 
-#define CLOSE                        69     /* 0x45 Close corresponding OPEN of
-                                               #n. */
+#define CLOSE                        69     /* 0x45 Close corresponding OPEN
+                                               of #n. */
 #define CLOSE_tb_pb                    276  /*      0x114 */
 #define CLOSE_tb_p8                    277  /*      0x115 */
 #define CLOSE_t8_pb                    278  /*      0x116 */
@@ -650,7 +658,8 @@
 #define LONGJMP_t8_pb                  330  /*      0x14a */
 #define LONGJMP_t8_p8                  331  /*      0x14b */
 
-#define BRANCHJ                      83     /* 0x53 BRANCH with long offset. */
+#define BRANCHJ                      83     /* 0x53 BRANCH with long offset.
+                                            */
 #define BRANCHJ_tb_pb                  332  /*      0x14c */
 #define BRANCHJ_tb_p8                  333  /*      0x14d */
 #define BRANCHJ_t8_pb                  334  /*      0x14e */
@@ -757,15 +766,15 @@
 #define ENDLIKE_t8_pb                  390  /*      0x186 */
 #define ENDLIKE_t8_p8                  391  /*      0x187 */
 
-#define OPFAIL                       98     /* 0x62 Same as (?!), but with verb
-                                               arg */
+#define OPFAIL                       98     /* 0x62 Same as (?!), but with
+                                               verb arg */
 #define OPFAIL_tb_pb                   392  /*      0x188 */
 #define OPFAIL_tb_p8                   393  /*      0x189 */
 #define OPFAIL_t8_pb                   394  /*      0x18a */
 #define OPFAIL_t8_p8                   395  /*      0x18b */
 
-#define ACCEPT                       99     /* 0x63 Accepts the current matched
-                                               string, with verbar */
+#define ACCEPT                       99     /* 0x63 Accepts the current
+                                               matched string, with verbar */
 #define ACCEPT_tb_pb                   396  /*      0x18c */
 #define ACCEPT_tb_p8                   397  /*      0x18d */
 #define ACCEPT_t8_pb                   398  /*      0x18e */
@@ -793,8 +802,9 @@
 #define MARKPOINT_t8_pb                410  /*      0x19a */
 #define MARKPOINT_t8_p8                411  /*      0x19b */
 
-#define SKIP                        103     /* 0x67 On failure skip forward (to
-                                               the mark) before retrying */
+#define SKIP                        103     /* 0x67 On failure skip forward
+                                               (to the mark) before retrying
+                                            */
 #define SKIP_tb_pb                     412  /*      0x19c */
 #define SKIP_tb_p8                     413  /*      0x19d */
 #define SKIP_t8_pb                     414  /*      0x19e */
diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat
index 8eb9fc5f5c..89664ad769 100644
--- a/t/porting/known_pod_issues.dat
+++ b/t/porting/known_pod_issues.dat
@@ -369,52 +369,157 @@ XML::LibXML
 YAML
 YAML::Syck
 YAML::Tiny
-dist/data-dumper/changes	Verbatim line length including indents exceeds 79 by	1
+dist/attribute-handlers/lib/attribute/handlers.pm	Verbatim line length including indents exceeds 78 by	2
+dist/base/lib/fields.pm	Verbatim line length including indents exceeds 78 by	1
+dist/constant/lib/constant.pm	Verbatim line length including indents exceeds 78 by	1
+dist/data-dumper/changes	Verbatim line length including indents exceeds 78 by	2
 dist/data-dumper/dumper.pm	? Should you be using L<...> instead of	1
+dist/data-dumper/dumper.pm	Verbatim line length including indents exceeds 78 by	3
+dist/devel-ppport/devel/buildperl.pl	Verbatim line length including indents exceeds 78 by	1
+dist/devel-ppport/hackers	Verbatim line length including indents exceeds 78 by	2
 dist/devel-ppport/parts/inc/ppphdoc	Unknown directive: =dontwarn	1
 dist/devel-ppport/parts/inc/ppphdoc	Unknown directive: =implementation	1
 dist/devel-ppport/parts/inc/ppphdoc	Unknown directive: =provides	1
+dist/encoding-warnings/lib/encoding/warnings.pm	Verbatim line length including indents exceeds 78 by	1
 dist/env/lib/env.pm	? Should you be using F<...> or maybe L<...> instead of	1
-dist/exporter/lib/exporter.pm	Verbatim line length including indents exceeds 79 by	2
+dist/exporter/lib/exporter.pm	Verbatim line length including indents exceeds 78 by	7
+dist/extutils-parsexs/lib/perlxstut.pod	Verbatim line length including indents exceeds 78 by	3
+dist/extutils-parsexs/lib/perlxstypemap.pod	Verbatim line length including indents exceeds 78 by	2
+dist/i18n-langtags/lib/i18n/langtags.pm	Verbatim line length including indents exceeds 78 by	1
+dist/io/io.pm	Verbatim line length including indents exceeds 78 by	1
+dist/io/lib/io/socket/inet.pm	Verbatim line length including indents exceeds 78 by	2
+dist/module-corelist/blib/script/corelist	Verbatim line length including indents exceeds 78 by	1
+dist/module-corelist/lib/module/corelist.pod	Verbatim line length including indents exceeds 78 by	2
 dist/net-ping/lib/net/ping.pm	Apparent broken link	2
-ext/amiga-exec/exec.pm	Verbatim line length including indents exceeds 79 by	1
-ext/dynaloader/dynaloader.pm	Verbatim line length including indents exceeds 79 by	1
-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	2
+dist/pathtools/lib/file/spec/mac.pm	Verbatim line length including indents exceeds 78 by	4
+dist/pathtools/lib/file/spec/vms.pm	Verbatim line length including indents exceeds 78 by	1
+dist/pathtools/lib/file/spec/win32.pm	Verbatim line length including indents exceeds 78 by	1
+dist/term-readline/lib/term/readline.pm	Verbatim line length including indents exceeds 78 by	2
+dist/test/lib/test.pm	Verbatim line length including indents exceeds 78 by	2
+dist/thread-queue/lib/thread/queue.pm	Verbatim line length including indents exceeds 78 by	2
+dist/thread-semaphore/lib/thread/semaphore.pm	Verbatim line length including indents exceeds 78 by	1
+dist/threads-shared/lib/threads/shared.pm	Verbatim line length including indents exceeds 78 by	1
+dist/tie-file/lib/tie/file.pm	Verbatim line length including indents exceeds 78 by	1
+dist/unicode-normalize/normalize.pm	Verbatim line length including indents exceeds 78 by	1
+ext/amiga-exec/exec.pm	Verbatim line length including indents exceeds 78 by	1
+ext/b/b.pm	Verbatim line length including indents exceeds 78 by	1
+ext/b/b/concise.pm	Verbatim line length including indents exceeds 78 by	1
+ext/dynaloader/dynaloader.pm	Verbatim line length including indents exceeds 78 by	1
+ext/file-find/lib/file/find.pm	Verbatim line length including indents exceeds 78 by	1
+ext/hash-util-fieldhash/lib/hash/util/fieldhash.pm	Verbatim line length including indents exceeds 78 by	1
+ext/hash-util/lib/hash/util.pm	Verbatim line length including indents exceeds 78 by	3
+ext/opcode/opcode.pm	Verbatim line length including indents exceeds 78 by	1
+ext/pod-html/testdir/perlpodspec-copy.pod	Verbatim line length including indents exceeds 78 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
-ext/vms-filespec/lib/vms/filespec.pm	Verbatim line length including indents exceeds 79 by	1
+ext/pod-html/testdir/perlvar-copy.pod	Verbatim line length including indents exceeds 78 by	7
+ext/posix/lib/posix.pod	Verbatim line length including indents exceeds 78 by	5
+ext/re/re.pm	Verbatim line length including indents exceeds 78 by	1
+ext/sdbm_file/sdbm_file.pm	Verbatim line length including indents exceeds 78 by	1
+ext/vms-filespec/lib/vms/filespec.pm	Verbatim line length including indents exceeds 78 by	1
 install	? Should you be using F<...> or maybe L<...> instead of	1
-pod/perl.pod	Verbatim line length including indents exceeds 79 by	8
-pod/perlandroid.pod	Verbatim line length including indents exceeds 79 by	3
-pod/perlbook.pod	Verbatim line length including indents exceeds 79 by	1
-pod/perldebguts.pod	Verbatim line length including indents exceeds 79 by	-1
-pod/perldebtut.pod	Verbatim line length including indents exceeds 79 by	3
-pod/perldtrace.pod	Verbatim line length including indents exceeds 79 by	7
+install	Verbatim line length including indents exceeds 78 by	9
+installhtml	Verbatim line length including indents exceeds 78 by	3
+os2/os2/os2-process/process.pm	Verbatim line length including indents exceeds 78 by	8
+os2/os2/os2-rexx/dll/dll.pm	Verbatim line length including indents exceeds 78 by	1
+os2/os2/os2-rexx/rexx.pm	Verbatim line length including indents exceeds 78 by	1
+pod/perl.pod	Verbatim line length including indents exceeds 78 by	8
+pod/perlaix.pod	Verbatim line length including indents exceeds 78 by	12
+pod/perlandroid.pod	Verbatim line length including indents exceeds 78 by	4
+pod/perlapi.pod	Verbatim line length including indents exceeds 78 by	4
+pod/perlapio.pod	Verbatim line length including indents exceeds 78 by	5
+pod/perlbook.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlcall.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perlclib.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlcygwin.pod	Verbatim line length including indents exceeds 78 by	8
+pod/perldata.pod	Verbatim line length including indents exceeds 78 by	4
+pod/perldebguts.pod	Verbatim line length including indents exceeds 78 by	47
+pod/perldebtut.pod	Verbatim line length including indents exceeds 78 by	20
+pod/perldebug.pod	Verbatim line length including indents exceeds 78 by	4
+pod/perldiag.pod	Verbatim line length including indents exceeds 78 by	6
+pod/perldsc.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perldtrace.pod	Verbatim line length including indents exceeds 78 by	25
+pod/perlebcdic.pod	Verbatim line length including indents exceeds 78 by	31
+pod/perlembed.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perlfork.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlfunc.pod	Verbatim line length including indents exceeds 78 by	156
 pod/perlgit.pod	? Should you be using F<...> or maybe L<...> instead of	1
-pod/perlgit.pod	Verbatim line length including indents exceeds 79 by	1
+pod/perlgit.pod	Verbatim line length including indents exceeds 78 by	9
+pod/perlgpl.pod	Verbatim line length including indents exceeds 78 by	19
 pod/perlguts.pod	? Should you be using L<...> instead of	1
+pod/perlguts.pod	Verbatim line length including indents exceeds 78 by	10
 pod/perlhack.pod	? Should you be using L<...> instead of	1
-pod/perlhack.pod	Verbatim line length including indents exceeds 79 by	2
-pod/perlhist.pod	Verbatim line length including indents exceeds 79 by	1
-pod/perlhpux.pod	Verbatim line length including indents exceeds 79 by	1
+pod/perlhack.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perlhacktips.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perlhacktut.pod	Verbatim line length including indents exceeds 78 by	5
+pod/perlhist.pod	Verbatim line length including indents exceeds 78 by	3
+pod/perlhpux.pod	Verbatim line length including indents exceeds 78 by	4
+pod/perlhurd.pod	Verbatim line length including indents exceeds 78 by	1
 pod/perlinterp.pod	? Should you be using L<...> instead of	1
-pod/perlirix.pod	Verbatim line length including indents exceeds 79 by	1
-pod/perlmacosx.pod	Verbatim line length including indents exceeds 79 by	3
+pod/perlintro.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perliol.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perlipc.pod	Verbatim line length including indents exceeds 78 by	10
+pod/perlirix.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perllocale.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perllol.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlmacosx.pod	Verbatim line length including indents exceeds 78 by	4
+pod/perlmod.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlmodlib.pod	Verbatim line length including indents exceeds 78 by	1
 pod/perlmroapi.pod	? Should you be using L<...> instead of	1
+pod/perlobj.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlop.pod	Verbatim line length including indents exceeds 78 by	18
+pod/perlopentut.pod	Verbatim line length including indents exceeds 78 by	1
 pod/perlos2.pod	? Should you be using L<...> instead of	2
-pod/perlos2.pod	Verbatim line length including indents exceeds 79 by	5
-pod/perlos390.pod	Verbatim line length including indents exceeds 79 by	3
-pod/perlperf.pod	Verbatim line length including indents exceeds 79 by	114
+pod/perlos2.pod	Verbatim line length including indents exceeds 78 by	11
+pod/perlos390.pod	Verbatim line length including indents exceeds 78 by	6
+pod/perlpacktut.pod	Verbatim line length including indents exceeds 78 by	3
+pod/perlperf.pod	Verbatim line length including indents exceeds 78 by	139
+pod/perlpodspec.pod	Verbatim line length including indents exceeds 78 by	8
 pod/perlport.pod	? Should you be using L<...> instead of	1
-pod/perlrun.pod	Verbatim line length including indents exceeds 79 by	3
-pod/perlsolaris.pod	Verbatim line length including indents exceeds 79 by	13
-pod/perltie.pod	Verbatim line length including indents exceeds 79 by	3
-pod/perltru64.pod	Verbatim line length including indents exceeds 79 by	1
-pod/perlwin32.pod	Verbatim line length including indents exceeds 79 by	7
-porting/epigraphs.pod	Verbatim line length including indents exceeds 79 by	-1
-porting/release_managers_guide.pod	Verbatim line length including indents exceeds 79 by	2
+pod/perlport.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlqnx.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlre.pod	Verbatim line length including indents exceeds 78 by	7
+pod/perlreapi.pod	Verbatim line length including indents exceeds 78 by	3
+pod/perlrebackslash.pod	Verbatim line length including indents exceeds 78 by	4
+pod/perlrecharclass.pod	Verbatim line length including indents exceeds 78 by	12
+pod/perlref.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlreftut.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlreguts.pod	Verbatim line length including indents exceeds 78 by	10
+pod/perlreref.pod	Verbatim line length including indents exceeds 78 by	6
+pod/perlretut.pod	Verbatim line length including indents exceeds 78 by	9
+pod/perlrun.pod	Verbatim line length including indents exceeds 78 by	10
+pod/perlsec.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlsolaris.pod	Verbatim line length including indents exceeds 78 by	13
+pod/perlstyle.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlsub.pod	Verbatim line length including indents exceeds 78 by	8
+pod/perlsynology.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlthrtut.pod	Verbatim line length including indents exceeds 78 by	2
+pod/perltie.pod	Verbatim line length including indents exceeds 78 by	7
+pod/perltru64.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlunicode.pod	Verbatim line length including indents exceeds 78 by	4
+pod/perlunifaq.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perluniintro.pod	Verbatim line length including indents exceeds 78 by	5
+pod/perlvar.pod	Verbatim line length including indents exceeds 78 by	1
+pod/perlwin32.pod	Verbatim line length including indents exceeds 78 by	8
+porting/bench.pl	Verbatim line length including indents exceeds 78 by	2
+porting/bisect-runner.pl	Verbatim line length including indents exceeds 78 by	2
+porting/epigraphs.pod	Verbatim line length including indents exceeds 78 by	51
+porting/pumpkin.pod	Verbatim line length including indents exceeds 78 by	3
+porting/release_managers_guide.pod	Verbatim line length including indents exceeds 78 by	6
 porting/todo.pod	? Should you be using F<...> or maybe L<...> instead of	1
-lib/benchmark.pm	Verbatim line length including indents exceeds 79 by	2
+porting/todo.pod	Verbatim line length including indents exceeds 78 by	2
+lib/b/op_private.pm	Verbatim line length including indents exceeds 78 by	1
+lib/benchmark.pm	Verbatim line length including indents exceeds 78 by	2
+lib/charnames.pm	Verbatim line length including indents exceeds 78 by	2
+lib/class/struct.pm	Verbatim line length including indents exceeds 78 by	3
 lib/config.pod	? Should you be using L<...> instead of	-1
+lib/db.pm	Verbatim line length including indents exceeds 78 by	2
+lib/overload.pm	Verbatim line length including indents exceeds 78 by	1
 lib/perl5db.pl	? Should you be using L<...> instead of	1
+lib/perlio.pm	Verbatim line length including indents exceeds 78 by	1
+lib/strict.pm	Verbatim line length including indents exceeds 78 by	1
+lib/tie/array.pm	Verbatim line length including indents exceeds 78 by	1
+lib/tie/hash.pm	Verbatim line length including indents exceeds 78 by	1
+lib/unicode/ucd.pm	Verbatim line length including indents exceeds 78 by	17
+lib/utf8.pm	Verbatim line length including indents exceeds 78 by	1
+lib/vmsish.pm	Verbatim line length including indents exceeds 78 by	1
+lib/warnings.pm	Verbatim line length including indents exceeds 78 by	2
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 0797d57930..94c56e8822 100644
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -114,8 +114,8 @@ The pedantic checks are:
 
 It's annoying to have lines wrap when displaying pod documentation in a
 terminal window.  This checks that all verbatim lines fit in a standard 80
-column window, even when using a pager that reserves a column for its own use.
-(Thus the check is for a net of 79 columns.)
+column window, even when using a pager that reserves 2 columns for its own
+use.  (Thus the check is for a net of 78 columns.)
 For those lines that don't fit, it tells you how much needs to be cut in
 order to fit.
 
@@ -359,7 +359,7 @@ my $known_issues = File::Spec->catfile($data_dir, 'known_pod_issues.dat');
 my $MANIFEST = File::Spec->catfile(File::Spec->updir($original_dir), 'MANIFEST');
 my $copy_fh;
 
-my $MAX_LINE_LENGTH = 79;   # 79 columns
+my $MAX_LINE_LENGTH = 78;   # 78 columns
 my $INDENT = 7;             # default nroff indent
 
 # Our warning messages.  Better not have [('"] in them, as those are used as