37 lines
1.2 KiB
Diff
37 lines
1.2 KiB
Diff
|
--- rpm-4.4.2/scripts/perl.prov.main 2006-01-18 11:32:28.000000000 -0500
|
||
|
|
+++ rpm-4.4.2/scripts/perl.prov 2006-01-18 11:32:44.000000000 -0500
|
||
|
|
@@ -121,13 +121,17 @@
|
||
|
|
}
|
||
|
|
|
||
|
|
# not everyone puts the package name of the file as the first
|
||
|
|
- # package name so we report all namespaces as if they were
|
||
|
|
- # provided packages (really ugly).
|
||
|
|
+ # package name so we report all namespaces except some common
|
||
|
|
+ # false positives as if they were provided packages (really ugly).
|
||
|
|
|
||
|
|
if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/) {
|
||
|
|
$package=$1;
|
||
|
|
undef $version;
|
||
|
|
- $require{$package}=undef;
|
||
|
|
+ if ($package eq 'main') {
|
||
|
|
+ undef $package;
|
||
|
|
+ } else {
|
||
|
|
+ $require{$package}=undef;
|
||
|
|
+ }
|
||
|
|
}
|
||
|
|
|
||
|
|
# after we found the package name take the first assignment to
|
||
|
|
--- rpm-4.4.2/scripts/perldeps.pl.main 2006-01-18 11:32:37.000000000 -0500
|
||
|
|
+++ rpm-4.4.2/scripts/perldeps.pl 2006-01-18 11:32:44.000000000 -0500
|
||
|
|
@@ -150,6 +150,10 @@
|
||
|
|
return if(exists($self->{'provides_check'}->{$params{'-provide'}}));
|
||
|
|
|
||
|
|
#
|
||
|
|
+ # Skip some common false positives
|
||
|
|
+ return if $params{'-provide'} eq 'main';
|
||
|
|
+
|
||
|
|
+ #
|
||
|
|
# Created dependency object
|
||
|
|
my $dep = new Dependency "provide", $params{-provide};
|
||
|
|
$dep->filename($params{-filename});
|