check for IO::Socket::SSL

msimerson · Mar 25, 2024 · e6df3b8 · e6df3b8
1 parent 56bf600
commit e6df3b8
Showing 1 changed file with 12 additions and 5 deletions.
diff --git a/lib/Mail/DMARC/Report/Receive.pm b/lib/Mail/DMARC/Report/Receive.pm
@@ -29,11 +29,18 @@ sub from_imap {
     my $f_done = $self->config->{imap}{f_done};
     my $port   = $self->config->{imap}{port} // 993;
 
-    if (defined $self->config->{imap}{SSL_verify_mode}) {
-        IO::Socket::SSL::set_ctx_defaults(
-            SSL_verifycn_scheme => 'imap',
-            SSL_verify_mode => $self->config->{imap}{SSL_verify_mode},
-        );
+    if ($port != 143) {
+        eval "use IO::Socket::SSL";  ## no critic (Eval)
+        if ( $@ ) {
+            croak "Can't load IO::Socket::SSL: $!\n";
+        };
+
+        if (defined $self->config->{imap}{SSL_verify_mode}) {
+            IO::Socket::SSL::set_ctx_defaults(
+                SSL_verifycn_scheme => 'imap',
+                SSL_verify_mode => $self->config->{imap}{SSL_verify_mode},
+            );
+        }
     }
 
     no warnings qw(once);                ## no critic (Warn)