From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 20 Nov 2009 11:00:05 +0000 (+0000)
Subject: Merge %apidocs and %gutsdocs into $docs{api} and $docs{guts}.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a235718376473e8a4b38c98dc4a86a0c420afd1;p=p5sagit%2Fp5-mst-13.2.git

Merge %apidocs and %gutsdocs into $docs{api} and $docs{guts}.
---

diff --git a/autodoc.pl b/autodoc.pl
index 8c47ecf..db1572d 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -25,8 +25,7 @@ use strict;
 # implicit interpreter context argument.
 #
 
-my %apidocs;
-my %gutsdocs;
+my %docs;
 my %docfuncs;
 my %seenfuncs;
 
@@ -60,10 +59,10 @@ DOC:
 	    $docs = "\n$docs" if $docs and $docs !~ /^\n/;
 	    if ($flags =~ /m/) {
 		if ($flags =~ /A/) {
-		    $apidocs{$curheader}{$name} = [$flags, $docs, $ret, $file, @args];
+		    $docs{api}{$curheader}{$name} = [$flags, $docs, $ret, $file, @args];
 		}
 		else {
-		    $gutsdocs{$curheader}{$name} = [$flags, $docs, $ret, $file, @args];
+		    $docs{guts}{$curheader}{$name} = [$flags, $docs, $ret, $file, @args];
 		}
 	    }
 	    else {
@@ -193,11 +192,11 @@ while (<IN>) {
     if ($docref and @$docref) {
 	if ($flags =~ /A/) {
 	    $docref->[0].="x" if $flags =~ /M/;
-	    $apidocs{$docref->[4]}{$func} =
+	    $docs{api}{$docref->[4]}{$func} =
 		[$docref->[0] . 'A', $docref->[1], $retval, $docref->[3],
 		 @args];
 	} else {
-	    $gutsdocs{$docref->[4]}{$func} =
+	    $docs{guts}{$docref->[4]}{$func} =
 		[$docref->[0], $docref->[1], $retval, $docref->[3], @args];
 	}
     }
@@ -212,7 +211,7 @@ for (sort keys %docfuncs) {
     warn "Unable to place $_!\n";
 }
 
-output('perlapi', <<'_EOB_', \%apidocs, <<'_EOE_');
+output('perlapi', <<'_EOB_', $docs{api}, <<'_EOE_');
 =head1 NAME
 
 perlapi - autogenerated documentation for the perl public API
@@ -278,7 +277,7 @@ perlguts(1), perlxs(1), perlxstut(1), perlintern(1)
 
 _EOE_
 
-output('perlintern', <<'END', \%gutsdocs, <<'END');
+output('perlintern', <<'END', $docs{guts}, <<'END');
 =head1 NAME
 
 perlintern - autogenerated documentation of purely B<internal>