X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fbuildtoc;h=8df57267718621960ca8a75432402c1a382f4199;hb=c8984b0bd19897e6e30588055ac0338326f20a34;hp=30fa9ee69cbf99b9a36c018dbe503ea4ee696c0d;hpb=8ebc5c0145d2e3559bce3073437e6d027dcdffcc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/buildtoc b/pod/buildtoc
index 30fa9ee..8df5726 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -5,11 +5,15 @@ use Text::Wrap;
 sub output ($);
 
 @pods = qw(
-	    perl perlnews 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 perlobj perltie perlbot perlipc perldebug
+	   perldiag perlsec perltrap perlport perlstyle perlpod perlbook
+	   perlembed perlapio perlxs perlxstut perlguts perlcall
+	   perlhist
 	  );
 
 for (@pods) { s/$/.pod/ }
@@ -26,7 +30,7 @@ $/ = '';
 	=head1 DESCRIPTION
 
 	This page provides a brief table of contents for the rest of the Perl
-	documentation set.  It is meant to be bescanned quickly or grepped
+	documentation set.  It is meant to be scanned quickly or grepped
 	through to locate the proper section you're looking for.
 
 	=head1 BASIC DOCUMENTATION
@@ -130,7 +134,7 @@ podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
 
 	=head1 AUTHOR
 
-	Larry Wall E<lt>F<larry\@wall.org>E<gt>, with the help of oodles
+	Larry Wall <F<larry\@wall.org>>, with the help of oodles
 	of other folks.
 
 
@@ -169,13 +173,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;