diff options
Diffstat (limited to 'perl.prov')
-rwxr-xr-x | perl.prov | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -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 |