[Net-ssleay-devel] Net-SSLeay-1.33_01 X509_get_subjectAltNames segfaults on test.eonis.net:443

[Achim Grolms]

Hello, 

testing the Net-SSLeay-1.33_01 release
I get a segfault when connecting to test.eonis.net:443.
and use the X509_get_subjectAltNames function.

Find my testcode below.
Can you reproduce this segfault?

Thank you,
Achim



#!/usr/bin/perl -w

use strict;

use ExtUtils::testlib;

use Net::SSLeay 1.33 qw(sslcat);

my $server =  'test.eonis.net';
my $port =   443;

my ($page, $response, $server_cert) = sslcat ($server, $port, 'GET /
HTTP/1.0');

$server_cert || die "sslcat returned error: $response";

my $x509_name = Net::SSLeay::X509_get_subject_name($server_cert);
my $text = Net::SSLeay::X509_NAME_get_text_by_NID ($x509_name, 13 );

print "Subject: " . Net::SSLeay::X509_NAME_oneline($x509_name) . "\n",
      "CN: $text\n";

my @altnames = Net::SSLeay::X509_get_subjectAltNames( $server_cert );
print "\n count altnames: ", scalar(@altnames), "\n"