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/HTTP-Tiny | |
parent | 38b4af19a42e6a4b9d5c8cc97fd06d954fff69a8 (diff) | |
download | perl-b8097e9479a0aafd1182244c6f9a955c57fb6b1a.tar.gz |
cpan/: remove . from @INC when loading optional modules
Diffstat (limited to 'cpan/HTTP-Tiny')
-rw-r--r-- | cpan/HTTP-Tiny/lib/HTTP/Tiny.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm index 42653e0ecb..1f11662714 100644 --- a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm +++ b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm @@ -504,6 +504,8 @@ sub can_ssl { my($ok, $reason) = (1, ''); # Need IO::Socket::SSL 1.42 for SSL_create_ctx_callback + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; unless (eval {require IO::Socket::SSL; IO::Socket::SSL->VERSION(1.42)}) { $ok = 0; $reason .= qq/IO::Socket::SSL 1.42 must be installed for https support\n/; @@ -1568,6 +1570,8 @@ sub _find_CA_file { return $ca_file; } + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; return Mozilla::CA::SSL_ca_file() if eval { require Mozilla::CA; 1 }; |