X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fbuildtoc;h=fa26d664fb7ad6f68c8842617810224169e364ef;hb=14bb0a9a08468b34d6bd39a990c2bd5d097cab1f;hp=de8e663bdf12f95040f1d8473d3a5afd5526d68c;hpb=6578b326867c9593ed67f77d062351ca8ddf19ce;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/buildtoc b/pod/buildtoc
index de8e663..fa26d66 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -261,6 +261,10 @@ sub output_perltoc {
 
   ($_= <<"EOPOD2B") =~ s/^\t//gm && output($_);
 
+	# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+	# This file is autogenerated by buildtoc from all the other pods.
+	# Edit those files and run buildtoc --build-toc to effect changes.
+
 	=head1 NAME
 
 	perltoc - perl documentation table of contents
@@ -506,8 +510,8 @@ sub generate_descrip_mms_1 {
 }
 
 sub generate_descrip_mms_2 {
-  map {sprintf <<'SNIP', $_, $_}
-[.lib.pod]%s.pod : [.pod]%s.pod
+  map {sprintf <<'SNIP', $_, $_ eq 'perlvms' ? 'vms' : 'pod', $_}
+[.lib.pod]%s.pod : [.%s]%s.pod
 	@ If F$Search("[.lib]pod.dir").eqs."" Then Create/Directory [.lib.pod]
 	Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pod]
 SNIP