Merge 918cf43 into 14df39e

libwww-perl · Nov 1, 2019 · 832d454 · 832d454
2 parents 14df39e + 918cf43
commit 832d454
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/LWP/Protocol/https.pm b/lib/LWP/Protocol/https.pm
@@ -115,7 +115,7 @@ sub _check_sock
         my $cert = $sock->get_peer_certificate ||
             die "Missing SSL certificate";
         my $subject = $cert->subject_name;
-        unless ( $subject =~ /$check/ ) {
+        unless ( defined $subject && ( $subject =~ /$check/ ) ) {
             my $ok = $self->_in_san( $check, $cert);
             die "Bad SSL certificate subject: '$subject' !~ /$check/"
                 unless $ok;