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

diff --git a/autodoc.pl b/autodoc.pl
index 8c47ecf..db1572d 100644 (file)
--- 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>