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

diff --git a/pod/buildtoc b/pod/buildtoc
index 62df02b..58bfc54 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -8,12 +8,13 @@ sub output ($);
 	   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 
+	   perlmod perlmodlib perlmodinstall perlfork perlform perllocale 
 	   perlref perlreftut perldsc
-	   perllol perltoot 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
-	   perlhist
+	   perlembed perlapio perlxs perlxstut perlguts perlcall perlcompile
+	   perlapi perlintern perlhist
 	  );
 
 for (@pods) { s/$/.pod/ }
@@ -113,6 +114,8 @@ podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
 	Here should be listed all the extra programs' documentation, but they
 	don't all have manual pages yet:
 
+	=over
+
 	=item a2p
 
 	=item s2p
@@ -131,6 +134,7 @@ podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
 
 	=item wrapsuid
 
+	=back
 
 	=head1 AUTHOR
 
@@ -149,8 +153,7 @@ sub podset {
     while(<>) {
 	if (s/^=head1 (NAME)\s*/=head2 /) {
 	    $pod = path2modname($ARGV);
-	    unitem();
-	    unhead2();
+	    unhead1();
 	    output "\n \n\n=head2 ";
 	    $_ = <>;
 	    if ( /^\s*$pod\b/ ) {
@@ -163,7 +166,9 @@ sub podset {
 	    next;
 	}
 	if (s/^=head1 (.*)/=item $1/) {
-	    unitem(); unhead2();
+	    unhead2();
+	    output "=over\n\n" unless $inhead1;
+	    $inhead1 = 1;
 	    output $_; nl(); next;
 	}
 	if (s/^=head2 (.*)/=item $1/) {
@@ -171,12 +176,12 @@ sub podset {
 	    output "=over\n\n" unless $inhead2;
 	    $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:/;
@@ -187,6 +192,10 @@ sub podset {
 	    s/^-X\b/-I<X>/;
 	    output $_; next;
 	}
+	if (s/^=cut\s*\n//) {
+	    unhead1();
+	    next;
+	}
     }
 }
 
@@ -199,12 +208,20 @@ sub path2modname {
     return $_;
 }
 
+sub unhead1 {
+    unhead2();
+    if ($inhead1) {
+	output "\n\n=back\n\n";
+    }
+    $inhead1 = 0;
+}
+
 sub unhead2 {
+    unitem();
     if ($inhead2) {
 	output "\n\n=back\n\n";
     }
     $inhead2 = 0;
-    $initem  = 0;
 }
 
 sub unitem {