From e509e6934ce7cafd6c279046164b9b6255429d8a Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Fri, 28 May 2004 12:46:41 +0100
Subject: Fix generation of perlapi.pod Message-ID:
 <40B71891.6090806@uk.radan.com>

p4raw-id: //depot/perl@22875
---
 autodoc.pl | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'autodoc.pl')

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;
 		}
-- 
cgit v1.2.1