diff options
| author | Tony Cook <tony@develop-help.com> | 2016-06-27 16:21:21 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2016-07-26 15:36:32 +1000 |
| commit | b8097e9479a0aafd1182244c6f9a955c57fb6b1a (patch) | |
| tree | b2972f3519bf10c282667607773c03c05e443583 /cpan/Digest | |
| parent | 38b4af19a42e6a4b9d5c8cc97fd06d954fff69a8 (diff) | |
| download | perl-b8097e9479a0aafd1182244c6f9a955c57fb6b1a.tar.gz | |
cpan/: remove . from @INC when loading optional modules
Diffstat (limited to 'cpan/Digest')
| -rw-r--r-- | cpan/Digest/Digest.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/cpan/Digest/Digest.pm b/cpan/Digest/Digest.pm index c3355a8bd4..299e25e0b7 100644 --- a/cpan/Digest/Digest.pm +++ b/cpan/Digest/Digest.pm @@ -38,7 +38,11 @@ sub new unless (exists ${"$class\::"}{"VERSION"}) { my $pm_file = $class . ".pm"; $pm_file =~ s{::}{/}g; - eval { require $pm_file }; + eval { + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; + require $pm_file + }; if ($@) { $err ||= $@; next; |