diff options
| author | Karl Williamson <khw@cpan.org> | 2016-10-12 18:30:11 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-10-12 19:22:47 -0600 |
| commit | 72d4186d0bdc8e5f58ebdef073e50de084a467f9 (patch) | |
| tree | c6a5928ec0b4b8955e4fcc7b4f0d6a89437a37f1 /autodoc.pl | |
| parent | ef7ea7adea12b6588505816360b213a22231e87e (diff) | |
| download | perl-72d4186d0bdc8e5f58ebdef073e50de084a467f9.tar.gz | |
autodoc.pl: Allow =item lists in perlapi
Such lists were silently ignored. This fixes things so no pod commands
are silently ignored, and hence lists are now accepted in a function's
pod. This fixes the entry for 'vverify', whose =item list was not
getting picked up.
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/autodoc.pl b/autodoc.pl index 161310d1e7..ce4846eb60 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -110,11 +110,14 @@ HDR_DOC: my $docs = ""; DOC: while (defined($doc = $get_next_line->())) { - last DOC if $doc =~ /^=\w+/; + + # Other pod commands are considered part of the current + # function's docs, so can have lists, etc. + last DOC if $doc =~ /^=(cut|for\s+apidoc|head)/; if ($doc =~ m:^\*/$:) { warn "=cut missing? $file:$line:$doc";; last DOC; - } + } $docs .= $doc; } $docs = "\n$docs" if $docs and $docs !~ /^\n/; |