blob: 45452be389aab41e05206bb28281724862489593 [file] [log] [blame]
Andrew Geissler8f840682023-07-21 09:09:43 -05001From a22785783b17cbaa28afaee4a024d81a1903701d
2From: Stig Palmquist <git@stig.io>
3Date: Sun Jun 18 11:36:05 2023 +0200
4Subject: [PATCH] Fix incorrect env var name for verify_SSL default
5
6The variable to override the verify_SSL default differed slightly in the
7documentation from what was checked for in the code.
8
9This commit makes the code use `PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT`
10as documented, instead of `PERL_HTTP_TINY_INSECURE_BY_DEFAULT` which was
11missing `SSL_`
12
13CVE: CVE-2023-31486
14
15Upstream-Status: Backport [https://github.com/chansen/p5-http-tiny/commit/a22785783b17cbaa28afaee4a024d81a1903701d]
16
17Signed-off-by: Soumya <soumya.sambu@windriver.com>
18---
19 cpan/HTTP-Tiny/lib/HTTP/Tiny.pm | 2 +-
20 1 file changed, 1 insertion(+), 1 deletion(-)
21
22diff --git a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm
23index ebc34a1..65ac8ff 100644
24--- a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm
25+++ b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm
26@@ -148,7 +148,7 @@ sub _verify_SSL_default {
27 my ($self) = @_;
28 # Check if insecure default certificate verification behaviour has been
29 # changed by the user by setting PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT=1
30- return (($ENV{PERL_HTTP_TINY_INSECURE_BY_DEFAULT} || '') eq '1') ? 0 : 1;
31+ return (($ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT} || '') eq '1') ? 0 : 1;
32 }
33
34 sub _set_proxies {
35--
362.40.0