diff options
| author | Tony Cook <tony@develop-help.com> | 2016-06-23 14:06:40 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2016-07-26 15:36:32 +1000 |
| commit | 8901ddee94b1bc3764b4278d1cb26bed30bc2605 (patch) | |
| tree | c8be8c6e8e8204a6dafb13ae1d2119cd4dfee443 /dist/Locale-Maketext | |
| parent | dcfbcce2b273096853629671e1e3a9c34c7ac7c8 (diff) | |
| download | perl-8901ddee94b1bc3764b4278d1cb26bed30bc2605.tar.gz | |
dist/: remove . from @INC when loading optional modules
I didn't update base.pm since that seems more likely to be loading
modules *expected* to be in the current directory. Opinions
welcome.
Diffstat (limited to 'dist/Locale-Maketext')
| -rw-r--r-- | dist/Locale-Maketext/lib/Locale/Maketext.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dist/Locale-Maketext/lib/Locale/Maketext.pm b/dist/Locale-Maketext/lib/Locale/Maketext.pm index 823c8d7647..0c99641c43 100644 --- a/dist/Locale-Maketext/lib/Locale/Maketext.pm +++ b/dist/Locale-Maketext/lib/Locale/Maketext.pm @@ -499,6 +499,8 @@ sub _try_use { # Basically a wrapper around "require Modulename" local $SIG{'__DIE__'}; local $@; + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; eval "require $module"; # used to be "use $module", but no point in that. if($@) { |