This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change the flag logic in buildtoc
authorNicholas Clark <nick@ccl4.org>
Mon, 5 Jan 2004 21:36:07 +0000 (21:36 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 5 Jan 2004 21:36:07 +0000 (21:36 +0000)
p4raw-id: //depot/perl@22067

pod.lst
pod/buildtoc

diff --git a/pod.lst b/pod.lst
index dd10e98..8a30c2a 100644 (file)
--- a/pod.lst
+++ b/pod.lst
@@ -1,18 +1,16 @@
-# O    - Header, omit from toc
-# o    - Item, omit from toc
-# I    - Header, include in toc
+# h    - Header
+# o    - Omit from toc
 # r    - top level READMEs to be copied/symlinked
 # r    - top level READMEs to be copied/symlinked
-# a    - Item, for auxiliary documentation
-# a    - Header for auxiliary documentation
+# a    - for auxiliary documentation
 # number - indent by
 
 # number - indent by
 
-I Overview
+h Overview
 
   perl                 Perl overview (this section)
   perlintro            Perl introduction for beginners
   perltoc              Perl documentation table of contents
 
 
   perl                 Perl overview (this section)
   perlintro            Perl introduction for beginners
   perltoc              Perl documentation table of contents
 
-I Tutorials
+h Tutorials
 
   perlreftut           Perl references short introduction
   perldsc              Perl data structures intro
 
   perlreftut           Perl references short introduction
   perldsc              Perl data structures intro
@@ -43,7 +41,7 @@ I Tutorials
 2 perlfaq8             System Interaction
 2 perlfaq9             Networking
 
 2 perlfaq8             System Interaction
 2 perlfaq9             Networking
 
-I Reference Manual
+h Reference Manual
 
   perlsyn              Perl syntax
   perldata             Perl data structures
 
   perlsyn              Perl syntax
   perldata             Perl data structures
@@ -94,7 +92,7 @@ I Reference Manual
 
   perlfilter           Perl source filters
 
 
   perlfilter           Perl source filters
 
-I Internals and C Language Interface
+h Internals and C Language Interface
 
   perlembed            Perl ways to embed perl in your C or C++ application
   perldebguts          Perl debugging guts and tips
 
   perlembed            Perl ways to embed perl in your C or C++ application
   perldebguts          Perl debugging guts and tips
@@ -111,7 +109,7 @@ I Internals and C Language Interface
 
   perlhack             Perl hackers guide
 
 
   perlhack             Perl hackers guide
 
-I Miscellaneous
+h Miscellaneous
 
   perlbook             Perl book information
   perltodo             Perl things to do
 
   perlbook             Perl book information
   perltodo             Perl things to do
@@ -134,14 +132,14 @@ I Miscellaneous
   perlartistic         Perl Artistic License
   perlgpl              GNU General Public License
 
   perlartistic         Perl Artistic License
   perlgpl              GNU General Public License
 
-O Language-Specific
+ho Language-Specific
 
 
-or perlcn              Perl for Simplified Chinese (in EUC-CN)
-or perljp              Perl for Japanese (in EUC-JP)
-or perlko              Perl for Korean (in EUC-KR)
-or perltw              Perl for Traditional Chinese (in Big5)
+ro perlcn              Perl for Simplified Chinese (in EUC-CN)
+ro perljp              Perl for Japanese (in EUC-JP)
+ro perlko              Perl for Korean (in EUC-KR)
+ro perltw              Perl for Traditional Chinese (in Big5)
 
 
-I Platform-Specific
+h Platform-Specific
 
 r perlaix              Perl notes for AIX
 r perlamiga            Perl notes for AmigaOS
 
 r perlaix              Perl notes for AIX
 r perlamiga            Perl notes for AmigaOS
@@ -176,7 +174,7 @@ r perlvms           Perl notes for VMS
 r perlvos              Perl notes for Stratus VOS
 r perlwin32            Perl notes for Windows
 
 r perlvos              Perl notes for Stratus VOS
 r perlwin32            Perl notes for Windows
 
-AO Auxiliary Documentation
+aoh Auxiliary Documentation
 
 ao a2p
 ao c2ph
 
 ao a2p
 ao c2ph
index 71f2a91..a847f88 100644 (file)
@@ -84,13 +84,13 @@ foreach (<MASTER>) {
   next if /^\#/;
 
   # At least one upper case letter somewhere in the first group
   next if /^\#/;
 
   # At least one upper case letter somewhere in the first group
-  if (/^(\S+)\s(.*)/ && $1 =~ tr/A-Z//) {
+  if (/^(\S+)\s(.*)/ && $1 =~ tr/h//) {
     # it's a heading
     my $flags = $1;
     # it's a heading
     my $flags = $1;
+    $flags =~ tr/h//d;
     my %flags = (header => 1);
     my %flags = (header => 1);
-    $flags{toc_omit} = 1 if $flags =~ tr/O//d;
-    $flags{include} = 1 if $flags =~ tr/I//d;
-    $flags{aux} = 1 if $flags =~ tr/A//d;
+    $flags{toc_omit} = 1 if $flags =~ tr/o//d;
+    $flags{aux} = 1 if $flags =~ tr/a//d;
     die "$0: Unknown flag found in heading line: $_" if length $flags;
     push @Master, [\%flags, $2];
 
     die "$0: Unknown flag found in heading line: $_" if length $flags;
     push @Master, [\%flags, $2];