Some packages, like DB, might be temporarily redefined into a perl module.

Don't take them into account when computing perl provides.

1 files changed, 6 insertions, 3 deletions

diff --git a/perl.prov b/perl.prov
index 68ff2c8..b366f64 100755
--- a/perl.prov
+++ b/perl.prov
@@ -127,9 +127,12 @@ sub process_file {
     # provided packages (really ugly).
 
     if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/) {
-      $package=$1;
-      undef $version;
-      $require{$package}=undef;
+	# some internal packages, like DB, might be temporarily redefined inside a module.
+	if (!($package && $1 eq 'DB')) {
+	    $package=$1;
+	    undef $version;
+	    $require{$package}=undef;
+	}
     }
 
     # after we found the package name take the first assignment to