AnyEvent::TLS

[Maxime Soulé]

Hello,

It seems that the AnyEvent::TLS option:

    verify_peername => [ 2, 0, 0 ]

does not work, at least for a certification that only define commonName 
and no subjectAltNames.

Watching at verify_hostname definition, it seems that this case is 
forgotten, as the [ 1, 0, 0 ] is too.

For the [ 2, 0, 0 ] case, adding:

    if ($scheme->[2] == 0 and $scheme->[0] == 2) {
        return 1 if match_cn $cert_cn, $cn, 0;
    }

solves the problem...

I didn't do anything for the [ 1, 0, 0 ] case...

Best regards,

Max.