From d34391666d44a8ddc5b5c1220fe8e2d5cac7e470 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 25 Jul 2012 17:01:59 +0000
Subject: sync with upstream rpm.org: "skip new-fangled head[34] while
 gerenerating deps (#118243)" (jbj, 2004-04-08)

---
 perl.prov | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl.prov')

diff --git a/perl.prov b/perl.prov
index db6d5b2..830aeb0 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/^=(head1|head2|pod|item)/) {
+    if (m/^=(head[1-4]|pod|item)/) {
       $incomment = 1;
     }
 
-- 
cgit v1.2.1