- switch to elfutils-devel in devel subpackage

[packages/rpm.git] / rpm-perlprov-perl5.6.patch

diff --git a/rpm-perlprov-perl5.6.patch b/rpm-perlprov-perl5.6.patch
index 64c560dad1346c134de319775341e55fc27cfe31..25a8e397c7c35a99f308bf18b9eccb038d031654 100644 (file)
--- a/rpm-perlprov-perl5.6.patch
+++ b/rpm-perlprov-perl5.6.patch
@@ -1,12 +1,30 @@
 diff -urN rpm-4.0.2/scripts/perl.prov rpm-4.0.2-grabba/scripts/perl.prov
---- rpm-4.0.2/scripts/perl.prov        Wed Feb 27 13:04:35 2002
-+++ rpm-4.0.2-grabba/scripts/perl.prov Wed Feb 27 13:47:06 2002
+--- rpm-4.0.2/scripts/perl.prov        Wed Mar  6 16:30:05 2002
++++ rpm-4.0.2-grabba/scripts/perl.prov Wed Mar  6 16:31:52 2002
+@@ -47,7 +47,7 @@
+ 
+ if ("@ARGV") {
+   foreach (@ARGV) {
+-     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html)$)=) {
++     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html|al|ix)$)=) {
+       process_file($_) if -f "$_";
+     }
+   }
+@@ -57,7 +57,7 @@
+   # contents of the file.
+ 
+   foreach (<>) {
+-     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html)$)=) {
++     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html|al|ix)$)=) {
+       process_file($_) if -f "$_";
+     }
+   }
 @@ -116,7 +116,7 @@
      # package name so we report all namespaces as if they were
      # provided packages (really ugly).
  
 -    if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/) {
-+    if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/ && !$require{$1}) {
++    if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/ && $1 ne 'main' && !$require{$1}) {
        $package=$1;
        undef $version;
        $require{$package}=undef;