X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fbuildtoc;h=bd880c379d62318629a5dd03eb548b6c2cd922a5;hb=f4dad39ef1a76c1f6bbf6733d7c2ee209381be78;hp=31712e290cdeb3829ea503c19f0bbecb421ea84c;hpb=68dc074516a6859e3424b48d1647bcb08b1a1a7d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/buildtoc b/pod/buildtoc
index 31712e2..bd880c3 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -8,10 +8,11 @@ sub output ($);
 	   perl perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5
 	   perlfaq6 perlfaq7 perlfaq8 perlfaq9 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
+	   perlmod perlmodlib perlform perllocale perlref perldsc
+	   perllol perltoot perlobj perltie perlbot perlipc perldebug
+	   perldiag perlsec perltrap perlstyle perlpod perlbook
+	   perlembed perlapio perlxs perlxstut perlguts perlcall
+	   perlhist
 	  );
 
 for (@pods) { s/$/.pod/ }
@@ -171,13 +172,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;