From: Panu Matilainen <pmatilai@redhat.com>
Date: Mon, 15 Feb 2010 06:52:54 +0000 (+0200)
Subject: Skip over =for ... perlpod construct (RhBug:477516)
X-Git-Tag: tznext/4.11.0.1.tizen20130304~2308
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=22392d2245df78ef13acd9f1a2d413c85c271432;p=tools%2Flibrpm-tizen.git

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
--- 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
--- 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;
     }