diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-08-09 22:08:07 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-08-09 22:13:26 -0600 |
| commit | d2086f64ccaad7c84018225dfbba1711f5364f2f (patch) | |
| tree | 193787d247510db6e9c895597304a5457b03922a /autodoc.pl | |
| parent | b879da0f8636785e611f9240e436a0af523f4c08 (diff) | |
| download | perl-d2086f64ccaad7c84018225dfbba1711f5364f2f.tar.gz | |
autodoc.pl: output to fit in 79 columns
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 89b36df9b5..186ebd2411 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -197,7 +197,7 @@ removed without notice.\n\n" if $flags =~ /x/; print $fh "\t$ret" . ($large_ret ? ' ' : "\t") . "$n("; my $long_args; for (@args) { - if ($indent_size + 2 + length > 80) { + if ($indent_size + 2 + length > 79) { $long_args=1; $indent_size -= length($n) - 3; last; @@ -213,7 +213,7 @@ removed without notice.\n\n" if $flags =~ /x/; while () { if (!@args or length $args - && $indent_size + 3 + length($args[0]) + length $args > 80 + && $indent_size + 3 + length($args[0]) + length $args > 79 ) { print $fh $first ? '' : ( |