]>
Commit | Line | Data |
---|---|---|
aece9261 | 1 | diff -urN rpm-4.0.2/scripts/perl.prov rpm-4.0.2-grabba/scripts/perl.prov |
53c2f1ad | 2 | --- rpm-4.0.2/scripts/perl.prov Wed Mar 6 16:30:05 2002 |
3 | +++ rpm-4.0.2-grabba/scripts/perl.prov Wed Mar 6 16:31:52 2002 | |
e819e577 | 4 | @@ -47,7 +47,7 @@ |
5 | ||
6 | if ("@ARGV") { | |
7 | foreach (@ARGV) { | |
8 | - if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html)$)=) { | |
9 | + if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html|al|ix)$)=) { | |
10 | process_file($_) if -f "$_"; | |
11 | } | |
12 | } | |
13 | @@ -57,7 +57,7 @@ | |
14 | # contents of the file. | |
15 | ||
16 | foreach (<>) { | |
17 | - if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html)$)=) { | |
18 | + if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html|al|ix)$)=) { | |
19 | process_file($_) if -f "$_"; | |
20 | } | |
21 | } | |
aece9261 | 22 | @@ -116,7 +116,7 @@ |
23 | # package name so we report all namespaces as if they were | |
24 | # provided packages (really ugly). | |
25 | ||
26 | - if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/) { | |
53c2f1ad | 27 | + if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/ && $1 ne 'main' && !$require{$1}) { |
aece9261 | 28 | $package=$1; |
29 | undef $version; | |
30 | $require{$package}=undef; | |
31 | @@ -132,10 +132,15 @@ | |
32 | #ExtUtils/Install.pm:$VERSION = substr q$Revision$, 10; | |
33 | #CGI/Apache.pm:$VERSION = (qw$Revision$)[1]; | |
34 | #DynaLoader.pm:$VERSION = $VERSION = "1.03"; # avoid typo warning | |
35 | + #Cwd.pm:our $VERSION = '2.04'; | |
36 | + | |
37 | + # here is example of VERSION line from RPC::PlClient module | |
38 | + | |
39 | + # RPC/PlClient.pm:$RPC::PlClient::VERSION = '0.2016'; | |
40 | ||
41 | if ( | |
42 | ($package) && | |
43 | - (m/^\s*\$VERSION\s*=\s+/) | |
44 | + (m/^\s*(our)?\s*\$(${package}::)?VERSION\s*=/) | |
45 | ) { | |
46 | ||
47 | # first see if the version string contains the string |