aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.com>2006-09-08 07:31:56 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.com>2006-09-08 07:31:56 +0000
commitd391d69cb618047a8cf80b6c4e2a4f8504157801 (patch)
tree6a389c6f9ff3f369d6a5f95958d4fac0586242a5
parent86fb0cec585d89c5a76f39624167d7a0c75e20e7 (diff)
Some packages, like DB, might be temporarily redefined into a perl module.
Don't take them into account when computing perl provides.
-rwxr-xr-xperl.prov9
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