From d391d69cb618047a8cf80b6c4e2a4f8504157801 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.com>
Date: Fri, 8 Sep 2006 07:31:56 +0000
Subject: Some packages, like DB, might be temporarily redefined into a perl
 module. Don't take them into account when computing perl provides.

---
 perl.prov | 9 ++++++---
 1 file 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
-- 
cgit v1.2.1