diff options
author | Karl Williamson <khw@cpan.org> | 2020-11-30 20:55:30 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-11-30 21:12:15 -0700 |
commit | c1ec4bdd803f587dd2ae76548bca0ae59d0fe84b (patch) | |
tree | c4e44fd1a4e94036818dafaa12e7835bbd6f12c5 /autodoc.pl | |
parent | add0fa588474394597ad4b9734b2d1646a7b225e (diff) | |
download | perl-c1ec4bdd803f587dd2ae76548bca0ae59d0fe84b.tar.gz |
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.
Diffstat (limited to 'autodoc.pl')
-rw-r--r-- | autodoc.pl | 4 |
1 files changed, 2 insertions, 2 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; |