summaryrefslogtreecommitdiff
path: root/autodoc.pl
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-11-30 20:55:30 -0700
committerKarl Williamson <khw@cpan.org>2020-11-30 21:12:15 -0700
commitc1ec4bdd803f587dd2ae76548bca0ae59d0fe84b (patch)
treec4e44fd1a4e94036818dafaa12e7835bbd6f12c5 /autodoc.pl
parentadd0fa588474394597ad4b9734b2d1646a7b225e (diff)
downloadperl-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.pl4
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;