From 5e3c31592f897c62acfdb47c82b6f72d4dfcc016 Mon Sep 17 00:00:00 2001
From: Stig Palmquist <git@stig.io>
Date: Tue, 28 Feb 2023 14:14:14 +0100
Subject: [PATCH]  Add verify_SSL=>1 to HTTP::Tiny to verify https server
 identity

---
 lib/Paws/Credential/ECSContainerProfile.pm | 1 +
 lib/Paws/Credential/InstanceProfile.pm     | 1 +
 lib/Paws/Credential/InstanceProfileV2.pm   | 1 +
 lib/Paws/Net/Caller.pm                     | 1 +
 4 files changed, 4 insertions(+)

diff --git a/lib/Paws/Credential/ECSContainerProfile.pm b/lib/Paws/Credential/ECSContainerProfile.pm
index c161dc5591..322b4aa7f1 100644
--- a/lib/Paws/Credential/ECSContainerProfile.pm
+++ b/lib/Paws/Credential/ECSContainerProfile.pm
@@ -35,6 +35,7 @@ package Paws::Credential::ECSContainerProfile;
       my $self = shift;
       use HTTP::Tiny;
       HTTP::Tiny->new(
+        verify_SSL => 1,
         agent => 'AWS Perl SDK',
         timeout => $self->timeout,
       );
diff --git a/lib/Paws/Credential/InstanceProfile.pm b/lib/Paws/Credential/InstanceProfile.pm
index 1a4f6c8854..fc6e3cd1c5 100644
--- a/lib/Paws/Credential/InstanceProfile.pm
+++ b/lib/Paws/Credential/InstanceProfile.pm
@@ -19,6 +19,7 @@ package Paws::Credential::InstanceProfile;
       my $self = shift;
       use HTTP::Tiny;
       HTTP::Tiny->new(
+        verify_SSL => 1,
         agent => 'AWS Perl SDK',
         timeout => $self->timeout,
       );
diff --git a/lib/Paws/Credential/InstanceProfileV2.pm b/lib/Paws/Credential/InstanceProfileV2.pm
index de9a455753..c1bb80b8d5 100644
--- a/lib/Paws/Credential/InstanceProfileV2.pm
+++ b/lib/Paws/Credential/InstanceProfileV2.pm
@@ -25,6 +25,7 @@ package Paws::Credential::InstanceProfileV2;
       my $self = shift;
       use HTTP::Tiny;
       HTTP::Tiny->new(
+        verify_SSL => 1,
         agent => 'AWS Perl SDK',
         timeout => $self->timeout,
       );
diff --git a/lib/Paws/Net/Caller.pm b/lib/Paws/Net/Caller.pm
index 442181a486..db9e2882af 100755
--- a/lib/Paws/Net/Caller.pm
+++ b/lib/Paws/Net/Caller.pm
@@ -8,6 +8,7 @@ package Paws::Net::Caller;
     default     => sub {
         use HTTP::Tiny;
         HTTP::Tiny->new(
+          verify_SSL => 1,
           agent => 'AWS Perl SDK ' . $Paws::VERSION,
           timeout => 60,
         );