From d9cd2282fd98995c6ae1d35d06dd0e810d18ee8f Mon Sep 17 00:00:00 2001
From: Paul Nasrat <pnasrat@redhat.com>
Date: Thu, 22 Feb 2007 12:26:10 +0000
Subject: [PATCH] Filter out incorrect perl(main) provides (rh#177960).

---
 scripts/perl.prov   | 10 +++++++---
 scripts/perldeps.pl |  4 ++++
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/scripts/perl.prov b/scripts/perl.prov
index d423d6a..328496d 100755
--- a/scripts/perl.prov
+++ b/scripts/perl.prov
@@ -121,13 +121,17 @@ sub process_file {
     }
 
     # 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
diff --git a/scripts/perldeps.pl b/scripts/perldeps.pl
index 4996ec4..76c1070 100644
--- a/scripts/perldeps.pl
+++ b/scripts/perldeps.pl
@@ -150,6 +150,10 @@ sub add_provide {
   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});
-- 
2.7.4