Skip over =for ... perlpod construct (RhBug:477516)

- patch from Ville Skyttä

diff --git a/scripts/perl.prov b/scripts/perl.prov
index 4d5bd81..deb8fc0 100755 (executable)
--- a/scripts/perl.prov
+++ b/scripts/perl.prov
@@ -94,7 +94,7 @@ sub process_file {
     # properly belongs in the over/back section) but people do not
     # read the perldoc.
 
-    if (m/^=(head[1-4]|pod|item)/) {
+    if (m/^=(head[1-4]|pod|for|item)/) {
       $incomment = 1;
     }
 

diff --git a/scripts/perl.req b/scripts/perl.req
index 07eed6b..587b3a5 100755 (executable)
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -112,7 +112,7 @@ sub process_file {
     # properly belongs in the over/back section) but people do not
     # read the perldoc.
 
-    if ( (m/^=(head[1-4]|pod|item)/) .. (m/^=(cut)/) ) {
+    if ( (m/^=(head[1-4]|pod|for|item)/) .. (m/^=(cut)/) ) {
       next;
     }