X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fbuildtoc;h=58bfc54fd725b2d88fa6b26980680ed0b98f44f1;hb=6940069f6d5beebb5f66572e358b4e7d0c3d1c43;hp=8192b5bd3d154e31fc31b5f3a72ed35482d5589e;hpb=a45bd81d7bee5835ad83b5249bac63256f8c94c0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/buildtoc b/pod/buildtoc
index 8192b5b..58bfc54 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -10,11 +10,11 @@ sub output ($);
 	   perlsyn perlop perlre perlrun perlfunc perlvar perlsub
 	   perlmod perlmodlib perlmodinstall perlfork perlform perllocale 
 	   perlref perlreftut perldsc
-	   perllol perltoot perltootc perlobj perltie perlbot perlipc
-	   perldbmfilter perldebug
+	   perllol perlboot perltoot perltootc perlobj perltie perlbot perlipc
+	   perldbmfilter perldebug perlnumber perldebguts
 	   perldiag perlsec perltrap perlport perlstyle perlpod perlbook
 	   perlembed perlapio perlxs perlxstut perlguts perlcall perlcompile
-	   perlhist
+	   perlapi perlintern perlhist
 	  );
 
 for (@pods) { s/$/.pod/ }
@@ -177,10 +177,11 @@ sub podset {
 	    $inhead2 = 1;
 	    output $_; nl(); next;
 	}
-	if (s/^=item ([^=].*)\n/$1/) {
+	if (s/^=item ([^=].*)/$1/) {
 	    next if $pod eq 'perldiag';
 	    s/^\s*\*\s*$// && next;
 	    s/^\s*\*\s*//;
+	    s/\n/ /g;
 	    s/\s+$//;
 	    next if /^[\d.]+$/;
 	    next if $pod eq 'perlmodlib' && /^ftp:/;