diff options
| author | Karl Williamson <khw@cpan.org> | 2019-05-28 11:02:42 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-05-30 18:13:29 -0600 |
| commit | 73060c4e2338e283341aabb27f4136e51f4f7b64 (patch) | |
| tree | fa1c23dd7e8a0c558859137a6cb4d40ff27370d2 /autodoc.pl | |
| parent | 1ded1f422025e6a4685d62b64c537d3fc77c5c4d (diff) | |
| download | perl-73060c4e2338e283341aabb27f4136e51f4f7b64.tar.gz | |
autodoc.pl: Strip, lead/trail space from =for apidoc
The components of a =for apidoc entry can have spaces between the '|'
separators. Ignore them.
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index 1856b3c962..56986ae2a2 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -106,7 +106,7 @@ HDR_DOC: if ($in =~ /^=for\s+apidoc\s+(.*?)\s*\n/) { my $proto = $1; $proto = "||$proto" unless $proto =~ /\|/; - my($flags, $ret, $name, @args) = split /\|/, $proto; + my($flags, $ret, $name, @args) = split /\s*\|\s*/, $proto; my $docs = ""; DOC: while (defined($doc = $get_next_line->())) { |