add perlcompile.pod (edited content from Nathan Torkington

[p5sagit/p5-mst-13.2.git] / pod / buildtoc

diff --git a/pod/buildtoc b/pod/buildtoc
index e8557c7..1a9a24b 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -5,11 +5,16 @@ use Text::Wrap;
 sub output ($);
 
 @pods = qw(
-           perl perldelta perldata perlsyn perlop perlre perlrun perlfunc
-           perlvar perlsub perlmod perlform perllocale perlref perldsc
-           perllol perltoot perlobj perltie perlbot perlipc perldebug
-           perldiag perlsec perltrap perlstyle perlpod perlbook perlembed
-           perlapio perlxs perlxstut perlguts perlcall
+          perl perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5
+          perlfaq6 perlfaq7 perlfaq8 perlfaq9 perldelta perldata
+          perlsyn perlop perlre perlrun perlfunc perlvar perlsub
+          perlmod perlmodlib perlmodinstall perlform perllocale 
+          perlref perlreftut perldsc
+          perllol perltoot perltootc perlobj perltie perlbot perlipc
+          perldbmfilter perldebug
+          perldiag perlsec perltrap perlport perlstyle perlpod perlbook
+          perlembed perlapio perlxs perlxstut perlguts perlcall perlcompile
+          perlhist
          );
 
 for (@pods) { s/$/.pod/ }
@@ -169,13 +174,13 @@ sub podset {
            output $_; nl(); next;
 
        }
-       if (s/^=item (.*)\n/$1/) {
+       if (s/^=item ([^=].*)\n/$1/) {
            next if $pod eq 'perldiag';
            s/^\s*\*\s*$// && next;
            s/^\s*\*\s*//;
            s/\s+$//;
            next if /^[\d.]+$/;
-           next if $pod eq 'perlmod' && /^ftp:/;
+           next if $pod eq 'perlmodlib' && /^ftp:/;
            ##print "=over\n\n" unless $initem;
            output ", " if $initem;
            $initem = 1;