- small fixes in perl.prov

[packages/rpm.git] / rpm-perl-macros.patch

diff --git a/rpm-perl-macros.patch b/rpm-perl-macros.patch
index ad94c33165b6c12f3801bfc79b691ef8536dea93..dfaa50e6d203cd76a31152eadfa761d607e6d1c2 100644 (file)
--- a/rpm-perl-macros.patch
+++ b/rpm-perl-macros.patch
@@ -200,7 +200,7 @@
  if ("@ARGV") {
    foreach (@ARGV) {
 -    process_file($_);
-+    if (! m=\.(so|gz|ph|pod)$=) {
++     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod)$)=) {
 +      process_file($_);
 +    }
    }
@@ -211,7 +211,7 @@
  
    foreach (<>) {
 -    process_file($_);
-+    if (! m=\.(so|gz|ph|pod)$=) {
++     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod)$)=) {
 +      process_file($_);
 +    }
    }