From fa5d437b3f4ea6f98944e541e9640673d158b9cd Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 11 May 2022 10:07:01 -0600 Subject: perlapi: Don't indent table of undocumenteds There's really no need to do this esthetically, and it gets us close to fitting an extra column in a standard terminal width to shorten the table. Future commits will gain that column. --- autodoc.pl | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'autodoc.pl') diff --git a/autodoc.pl b/autodoc.pl index 7860cceb2a..3dd34213b3 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -69,10 +69,10 @@ my %extra_input_pods = ( 'dist/ExtUtils-ParseXS/lib/perlxs.pod' => 1 ); use strict; use warnings; -# 80 column terminal - 2 for pager adding 2 columns; -4 for indent for -# non-heading lines; -my $standard_indent = 4; # for for non-heading lines; -my $max_width = 80 - 2 - $standard_indent; +my $nroff_min_indent = 4; # for non-heading lines +# 80 column terminal - 2 for pager adding 2 columns; +my $max_width = 80 - 2 - $nroff_min_indent; +my $standard_indent = 4; # Any additional indentations if (@ARGV) { my $workdir = shift; @@ -1615,7 +1615,7 @@ sub construct_missings_section { # required to list the elements. @col_widths contains the width of each # column. - $text .= "\n\n=over $description_indent\n\n"; + $text .= "\n"; # Assemble the output for my $row (0 .. $rows - 1) { @@ -1638,8 +1638,6 @@ sub construct_missings_section { $text .= "\n"; # End of row } - $text .= "\n=back\n"; - return $text; } -- cgit v1.2.1