From d34391666d44a8ddc5b5c1220fe8e2d5cac7e470 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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) --- NEWS | 1 + perl.prov | 2 +- perl.req | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index d8039ce..6fd5d24 100644 --- a/NEWS +++ b/NEWS @@ -4,6 +4,7 @@ (Per Oyvind, mdv) - 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) - 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 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; } diff --git a/perl.req b/perl.req index f69bbde..cf63adf 100755 --- a/perl.req +++ b/perl.req @@ -100,7 +100,7 @@ sub process_file { # properly belongs in the over/back section) but people do not # read the perldoc. - if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/) ) { + if ( (m/^=(head[1-4]|pod|item)/) .. (m/^=(cut)/) ) { next; } -- cgit v1.2.1