1 diff -urN rpm-4.0.2/scripts/perl.prov rpm-4.0.2-grabba/scripts/perl.prov
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
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 "$_";
14 # contents of the file.
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 "$_";
23 # package name so we report all namespaces as if they were
24 # provided packages (really ugly).
26 - if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/) {
27 + if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/ && $1 ne 'main' && !$require{$1}) {
30 $require{$package}=undef;
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';
37 + # here is example of VERSION line from RPC::PlClient module
39 + # RPC/PlClient.pm:$RPC::PlClient::VERSION = '0.2016';
43 - (m/^\s*\$VERSION\s*=\s+/)
44 + (m/^\s*(our)?\s*\$(${package}::)?VERSION\s*=/)
47 # first see if the version string contains the string