diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-05-28 12:46:41 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-31 09:25:37 +0000 |
| commit | e509e6934ce7cafd6c279046164b9b6255429d8a (patch) | |
| tree | 59d75edc88913d02910881c788a198b2e0526aca /autodoc.pl | |
| parent | a62b51b8b5ba4453033358d44b4729c019d6ae42 (diff) | |
| download | perl-e509e6934ce7cafd6c279046164b9b6255429d8a.tar.gz | |
Fix generation of perlapi.pod
Message-ID: <40B71891.6090806@uk.radan.com>
p4raw-id: //depot/perl@22875
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/autodoc.pl b/autodoc.pl index f0b9919883..da05962b45 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -82,10 +82,6 @@ FUNC: my $docs = ""; DOC: while (defined($doc = <$fh>)) { - if ($doc =~ /^=head1 (.*)/) { - $curheader = $1; - next DOC; - } $line++; last DOC if $doc =~ /^=\w+/; if ($doc =~ m:^\*/$:) { @@ -107,7 +103,7 @@ DOC: $docfuncs{$name} = [$flags, $docs, $ret, $file, $curheader, @args]; } if (defined $doc) { - if ($doc =~ /^=for/) { + if ($doc =~ /^=(?:for|head)/) { $in = $doc; redo FUNC; } |