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.
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/;