rpm-perlprov-regonly.patch

   1 diff -Nur rpm-4.0.2.orig/scripts/perl.prov rpm-4.0.2/scripts/perl.prov
   2 --- rpm-4.0.2.orig/scripts/perl.prov    Thu Jan 24 15:17:27 2002
   3 +++ rpm-4.0.2/scripts/perl.prov Thu Jan 24 16:04:16 2002
   4 @@ -48,7 +48,7 @@
   5  if ("@ARGV") {
   6    foreach (@ARGV) {
   7       if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html)$)=) {
   8 -      process_file($_);
   9 +      process_file($_) if -f "$_";
  10      }
  11    }
  12  } else {
  13 @@ -58,7 +58,7 @@
  14
  15    foreach (<>) {
  16       if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html)$)=) {
  17 -      process_file($_);
  18 +      process_file($_) if -f "$_";
  19      }
  20    }
  21  }
  22 diff -Nur rpm-4.0.2.orig/scripts/perl.req rpm-4.0.2/scripts/perl.req
  23 --- rpm-4.0.2.orig/scripts/perl.req     Thu Jan 24 15:17:27 2002
  24 +++ rpm-4.0.2/scripts/perl.req  Thu Jan 24 16:04:53 2002
  25 @@ -43,7 +43,7 @@
  26    foreach (@ARGV) {
  27      if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) {
  28        if (! m=(/(doc|man|info|usr/src)/|\.(so|ph|h|html|pod)$)=) {
  29 -        process_file($_);
  30 +        process_file($_) if -f "$_";
  31        }
  32      }
  33    }
  34 @@ -55,7 +55,7 @@
  35    foreach (<>) {
  36       if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) {
  37         if (! m=(/(doc|man|info|usr/src)/|\.(so|ph|h|html|pod)$)=) {
  38 -         process_file($_);
  39 +         process_file($_) if -f "$_";
  40         }
  41       }
  42    }