From: Casey R. Tweten <crt@kiski.net>
Date: Thu, 16 Nov 2000 12:02:47 +0000 (-0500)
Subject: Re: [p5p] [PATCH perlpod.pod] Digging into the =head
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6b85e5d3668a89cd3bf3dfeefdf7162018b7166;p=p5sagit%2Fp5-mst-13.2.git

Re: [p5p] [PATCH perlpod.pod] Digging into the =head
Message-ID: <Pine.OSF.4.21.0011161200410.700-100000@home.kiski.net>

p4raw-id: //depot/perl@7716
---

diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm
index 37ed68f..35d0186 100644
--- a/lib/Pod/Checker.pm
+++ b/lib/Pod/Checker.pm
@@ -150,8 +150,8 @@ C<"">.
 =item * Unknown command "I<CMD>"
 
 An invalid POD command has been found. Valid are C<=head1>, C<=head2>,
-C<=over>, C<=item>, C<=back>, C<=begin>, C<=end>, C<=for>, C<=pod>,
-C<=cut>
+C<=head3>, C<=head4>, C<=over>, C<=item>, C<=back>, C<=begin>, C<=end>,
+C<=for>, C<=pod>, C<=cut>
 
 =item * Unknown interior-sequence "I<SEQ>"
 
@@ -355,6 +355,8 @@ my %VALID_COMMANDS = (
     'cut'    =>  1,
     'head1'  =>  1,
     'head2'  =>  1,
+    'head3'  =>  1,
+    'head4'  =>  1,
     'over'   =>  1,
     'back'   =>  1,
     'item'   =>  1,
diff --git a/pod/perlpod.pod b/pod/perlpod.pod
index 6c0c534..22a0256 100644
--- a/pod/perlpod.pod
+++ b/pod/perlpod.pod
@@ -27,6 +27,8 @@ use however it pleases.  Currently recognized commands are
 
     =head1 heading
     =head2 heading
+    =head3 heading
+    =head4 heading
     =item text
     =over N
     =back
@@ -50,8 +52,13 @@ another paragraph to the doc if you're mixing up code and pod a lot.
 
 =item =head2
 
-Head1 and head2 produce first and second level headings, with the text in
-the same paragraph as the "=headn" directive forming the heading description.
+=item =head3
+
+=item =head4
+
+Head1, head2, head3 and head4 produce first, second, third and fourth
+level headings, with the text in the same paragraph as the "=headn"
+directive forming the heading description.
 
 =item =over