Also indicate the Unicode level here.

[p5sagit/p5-mst-13.2.git] / pod / buildtoc

diff --git a/pod/buildtoc b/pod/buildtoc
index de8e663..fa26d66 100644 (file)
--- 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