[Chicago-talk] IO::Socket::SSL issues

[Zane C.B.]

Any one know of any issues with "IO::Socket::SSL"?

I've been running into issues with verification with it.



#!/usr/bin/perl
use Data::Dumper;
use IO::Socket::SSL;

my $c=IO::Socket::SSL->new("google.com:443",
                        SSL_verifycn_scheme=>"http",
                        SSL_ca_file=>"/usr/local/share/certs/ca-root-nss.crt",
                        SSL_verify_mode=>0x01,
                        SSL_verifycn_name=>"google.com",
#                       SSL_verify_callback=>\&{ print Dumper(\@_) },
#                       SSL_error_trap=>\&{ print Dumper(\@_) } 
                )
               ||
               warn(IO::Socket::SSL::errstr);
print Dumper(
        $c->errstr,
        $c->opened,
        $c->dump_peer_certificate,
        $c->peer_certificate,
        $c->peer_certificate("authority"),
        $c->peer_certificate("owner"),
        $c->peer_certificate("commonName"),
        );