X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fbuildtoc.PL;h=f2dba95f6110668358621e2aff894fa74304780a;hb=b2b7bbf9706e94ebfcdb5ea2ad3c4e1de3b7c154;hp=3819308031d4a66e7e4e3230070c61e7d8d4fbe0;hpb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/buildtoc.PL b/pod/buildtoc.PL
index 3819308..f2dba95 100644
--- a/pod/buildtoc.PL
+++ b/pod/buildtoc.PL
@@ -154,12 +154,16 @@ if (-d "pod") {
     perlamiga          
     perlcygwin          
     perldos             
+    perlepoc             
     perlhpux            
     perlmachten         
+    perlmpeix         
     perlos2             
     perlos390           
     perlposix-bc
+    perlsolaris
     perlvms             
+    perlvos             
     perlwin32           
 	  );
 
@@ -168,12 +172,16 @@ if (-d "pod") {
     perlamiga          
     perlcygwin          
     perldos             
+    perlepoc             
     perlhpux            
     perlmachten         
+    perlmpeix
     perlos2             
     perlos390           
     perlposix-bc
+    perlsolaris
     perlvms             
+    perlvos             
     perlwin32           
           );
 for (@ARCHPODS) { s/$/.pod/ }
@@ -328,7 +336,7 @@ 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
+	=over 4
 
 	=item a2p
 
@@ -381,13 +389,13 @@ sub podset {
 	}
 	if (s/^=head1 (.*)/=item $1/) {
 	    unhead2();
-	    output "=over\n\n" unless $inhead1;
+	    output "=over 4\n\n" unless $inhead1;
 	    $inhead1 = 1;
 	    output $_; nl(); next;
 	}
 	if (s/^=head2 (.*)/=item $1/) {
 	    unitem();
-	    output "=over\n\n" unless $inhead2;
+	    output "=over 4\n\n" unless $inhead2;
 	    $inhead2 = 1;
 	    output $_; nl(); next;
 	}
@@ -399,7 +407,7 @@ sub podset {
 	    s/\s+$//;
 	    next if /^[\d.]+$/;
 	    next if $pod eq 'perlmodlib' && /^ftp:/;
-	    ##print "=over\n\n" unless $initem;
+	    ##print "=over 4\n\n" unless $initem;
 	    output ", " if $initem;
 	    $initem = 1;
 	    s/\.$//;