rpm-perlprov-regonly.patch

   1 diff -Nur rpm-4.0.2.orig/scripts/perl.req rpm-4.0.2/scripts/perl.req
   2 --- rpm-4.0.2.orig/scripts/perl.req     Thu Jan 24 15:17:27 2002
   3 +++ rpm-4.0.2/scripts/perl.req  Thu Jan 24 16:04:53 2002
   4 @@ -43,7 +43,7 @@
   5    foreach (@ARGV) {
   6      if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) {
   7        if (! m=(/(doc|man|info|usr/src)/|\.(so|ph|h|html|pod)$)=) {
   8 -        process_file($_);
   9 +        process_file($_) if -f "$_";
  10        }
  11      }
  12    }
  13 @@ -55,7 +55,7 @@
  14    foreach (<>) {
  15       if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) {
  16         if (! m=(/(doc|man|info|usr/src)/|\.(so|ph|h|html|pod)$)=) {
  17 -         process_file($_);
  18 +         process_file($_) if -f "$_";
  19         }
  20       }
  21    }