From 22392d2245df78ef13acd9f1a2d413c85c271432 Mon Sep 17 00:00:00 2001 From: Panu Matilainen Date: Mon, 15 Feb 2010 08:52:54 +0200 Subject: [PATCH] =?utf8?q?Skip=20over=20=3Dfor=20...=20perlpod=20construct?= =?utf8?q?=20(RhBug:477516)=20-=20patch=20from=20Ville=20Skytt=C3=A4?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- scripts/perl.prov | 2 +- scripts/perl.req | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; } -- 2.7.4