From 9cccdf20f2e40be8de837a796127aff97054ec26 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 25 Jul 2012 17:02:00 +0000
Subject: =?UTF-8?q?sync=20with=20upstream=20rpm.org:=20"skip=20over=20=3Df?=
 =?UTF-8?q?or=20...=20perlpod=20construct=20(RhBug:477516)"=20(Ville=20Sky?=
 =?UTF-8?q?tt=C3=A4,=202010-02-15)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 NEWS      | 1 +
 perl.prov | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 6fd5d24..22a6c1e 100644
--- a/NEWS
+++ b/NEWS
@@ -5,6 +5,7 @@
 - perl.prov: sync with upstream rpm.org:
   o make perl.{req,prov} warn about unreadable files
   o skip new-fangled head[34] while gerenerating deps (#118243)
+  o skip over =for ... perlpod construct (RhBug:477516)
 - use upstream fonconfig.prov as we had exactly the same file
 
 Version 1.147-12 - 24 Jul 2012, by Colin
diff --git a/perl.prov b/perl.prov
index 830aeb0..c20c6e9 100755
--- a/perl.prov
+++ b/perl.prov
@@ -101,7 +101,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;
     }
 
-- 
cgit v1.2.1