aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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