diff options
| author | Karl Williamson <khw@cpan.org> | 2020-11-04 04:46:18 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-11-05 21:18:31 -0700 |
| commit | 0213d97dcda976f02ce257031d969e7964ecc545 (patch) | |
| tree | 888e18b05c58e6631d60b6373c2cedc0ccb0ab6f /autodoc.pl | |
| parent | 63447426f831ed216e79d45cb18fafd344cfc3e9 (diff) | |
| download | perl-0213d97dcda976f02ce257031d969e7964ecc545.tar.gz | |
autodoc.pl: Don't recalculate value
e4f5ddf407394c177acefd200a338654dccca2e4 moved this calculation, but I
forgot to remove this portion of it.
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/autodoc.pl b/autodoc.pl index 0b5f18db08..27c5b9e606 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -1227,10 +1227,6 @@ sub docout ($$$) { # output the docs for one function my $name_indent = $indent + $longest_ret; $name_indent += $ret_name_sep_length if $longest_ret; - # 80 column terminal - 1 for pager adding a column; -7 for nroff - # indent; - my $max_length = 80 - 1 - 7 - $description_indent - $usage_indent; - for my $item (@items) { my $ret_type = $item->{ret_type}; my @args = $item->{args}->@*; @@ -1284,7 +1280,7 @@ sub docout ($$$) { # output the docs for one function # short2, # very_long_argument, # short3) - if ($total_length > $max_length) { + if ($total_length > $max_width) { # If this is the first continuation line, # calculate the longest argument; this will be the @@ -1313,9 +1309,9 @@ sub docout ($$$) { # output the docs for one function } # Calculate the new indent if necessary. - $arg_indent = $max_length - $longest_arg_length + $arg_indent = $max_width - $longest_arg_length if $arg_indent + $longest_arg_length - > $max_length; + > $max_width; } print $fh "\n", (" " x $arg_indent); |