This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
autodoc.pl: Adjust max permissible line length
authorKarl Williamson <khw@cpan.org>
Mon, 14 Dec 2020 20:38:47 +0000 (13:38 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 14 Dec 2020 20:50:00 +0000 (13:50 -0700)
perldoc takes up 4 column indent, not 7.

autodoc.pl

index 06361b8..a9f6f6b 100644 (file)
@@ -66,9 +66,9 @@ use Text::Tabs;
 use strict;
 use warnings;
 
-# 80 column terminal - 2 for pager adding 2 columns; -7 for nroff
-# indent;
-my $max_width = 80 - 2 - 7;
+# 80 column terminal - 2 for pager adding 2 columns; -4 for indent for
+# non-heading lines;
+my $max_width = 80 - 2 - 4;
 
 if (@ARGV) {
     my $workdir = shift;