]>
Commit | Line | Data |
---|---|---|
8b5b6ce4 JB |
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 | } |