summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStig Palmquist <git@stig.io>2023-02-28 14:29:40 +0100
committerAran Deltac <bluefeet@gmail.com>2023-06-07 12:56:45 -0700
commit02a2862cba323fe37e10afba8183d14847866fd2 (patch)
treeaf842de4755861ddee164f0e0eb05f0cc9bf1d83
parent09434a33cdc8d84527f303984534aa556a92e054 (diff)
Add verify_SSL=>1 to HTTP::Tiny to verify https server identity
-rw-r--r--lib/GitLab/API/v4/RESTClient.pm2
-rw-r--r--lib/GitLab/API/v4/WWWClient.pm2
2 files changed, 3 insertions, 1 deletions
diff --git a/lib/GitLab/API/v4/RESTClient.pm b/lib/GitLab/API/v4/RESTClient.pm
index 471dae5..ba86773 100644
--- a/lib/GitLab/API/v4/RESTClient.pm
+++ b/lib/GitLab/API/v4/RESTClient.pm
@@ -102,7 +102,7 @@ has http_tiny => (
isa => InstanceOf[ 'HTTP::Tiny' ],
);
sub _build_http_tiny {
- return HTTP::Tiny->new();
+ return HTTP::Tiny->new( verify_SSL => 1 );
}
has json => (
diff --git a/lib/GitLab/API/v4/WWWClient.pm b/lib/GitLab/API/v4/WWWClient.pm
index 8856e1f..33c55d9 100644
--- a/lib/GitLab/API/v4/WWWClient.pm
+++ b/lib/GitLab/API/v4/WWWClient.pm
@@ -81,6 +81,7 @@ sub sign_in {
my ($self, $username, $password) = @_;
my $tiny = HTTP::Tiny->new(
+ verify_SSL => 1,
max_redirect => 0,
);
@@ -165,6 +166,7 @@ sub get {
my ($self, $path) = @_;
my $tiny = HTTP::Tiny->new(
+ verify_SSL => 1,
max_redirect => 0,
);