Change the flag logic in buildtoc

p4raw-id: //depot/perl@22067

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
-# a    - Item, for auxiliary documentation
-# a    - Header for auxiliary documentation
+# a    - for auxiliary documentation
 # number - indent by
 
-I Overview
+h Overview
 
   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
@@ -43,7 +41,7 @@ I Tutorials
 2 perlfaq8             System Interaction
 2 perlfaq9             Networking
 
-I Reference Manual
+h Reference Manual
 
   perlsyn              Perl syntax
   perldata             Perl data structures
@@ -94,7 +92,7 @@ I Reference Manual
 
   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
@@ -111,7 +109,7 @@ I Internals and C Language Interface
 
   perlhack             Perl hackers guide
 
-I Miscellaneous
+h Miscellaneous
 
   perlbook             Perl book information
   perltodo             Perl things to do
@@ -134,14 +132,14 @@ I Miscellaneous
   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
@@ -176,7 +174,7 @@ r perlvms           Perl notes for VMS
 r perlvos              Perl notes for Stratus VOS
 r perlwin32            Perl notes for Windows
 
-AO Auxiliary Documentation
+aoh Auxiliary Documentation
 
 ao a2p
 ao c2ph

diff --git a/pod/buildtoc b/pod/buildtoc
index 71f2a91..a847f88 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -84,13 +84,13 @@ foreach (<MASTER>) {
   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;
+    $flags =~ tr/h//d;
     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];