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 | |
| parent | b879da0f8636785e611f9240e436a0af523f4c08 (diff) | |
| download | perl-d2086f64ccaad7c84018225dfbba1711f5364f2f.tar.gz | |
autodoc.pl: output to fit in 79 columns
| -rw-r--r-- | autodoc.pl | 4 | ||||
| -rw-r--r-- | t/porting/known_pod_issues.dat | 3 |
2 files changed, 3 insertions, 4 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 ? '' : ( diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index bdd56a1514..1ee620d467 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -203,7 +203,7 @@ os2/os2/os2-rexx/rexx.pm Verbatim line length including indents exceeds 79 by 1 pod/perl.pod Verbatim line length including indents exceeds 79 by 9 pod/perlaix.pod Verbatim line length including indents exceeds 79 by 11 pod/perlapi.pod ? Should you be using L<...> instead of 86 -pod/perlapi.pod Verbatim line length including indents exceeds 79 by 24 +pod/perlapi.pod Verbatim line length including indents exceeds 79 by 6 pod/perlapi.pod unresolved internal link 3 pod/perlapio.pod Verbatim line length including indents exceeds 79 by 5 pod/perlbook.pod Verbatim line length including indents exceeds 79 by 1 @@ -235,7 +235,6 @@ pod/perlhist.pod Verbatim line length including indents exceeds 79 by 2 pod/perlhpux.pod Verbatim line length including indents exceeds 79 by 3 pod/perlhurd.pod Verbatim line length including indents exceeds 79 by 2 pod/perlintern.pod ? Should you be using L<...> instead of 5 -pod/perlintern.pod Verbatim line length including indents exceeds 79 by 2 pod/perlinterp.pod ? Should you be using L<...> instead of 1 pod/perlinterp.pod Verbatim line length including indents exceeds 79 by 1 pod/perlintro.pod Verbatim line length including indents exceeds 79 by 11 |