Date: Fri, 18 Jul 2014 09:21:33 +0200 From: George Amanakis <gamanakis@gmail.com> To: freebsd-ports-bugs@FreeBSD.org, jadawin@FreeBSD.org Subject: Bug in IO::Socket::SSL Message-ID: <53C8CAFD.8020608@gmail.com>
next in thread | raw e-mail | index | archive | help
Dear all,
I 've discovered a bug in p5-IO-Socket-SSL. The following program does
not work (both on FreeBSD 9.2 and 10):
-------------------------
#!/usr/bin/perl
use strict;
use IO::Socket::SSL;
my $cl = IO::Socket::SSL->new(
PeerAddr => 'www.google.com',
PeerPort => 443,
SSL_ca_file => '/usr/local/share/certs/ca-root-nss.crt');
print $cl "GET / HTTP/1.0\r\n\r\n";
print <$cl>;
-------------------------
i.e. it produces no output meaning it seems no respond comes from the
socket. Changing to IO::Socket::INET and PeerPort to 80 produces
expected output. The same code in Archlinux works as expected.
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?53C8CAFD.8020608>