Bug#749212: libio-socket-ssl-perl: duplicate "did not receive the required stapled OCSP response" in error message

[Jakub Wilk]

* gregor herrmann <gre...@debian.org>, 2014-05-25, 15:57:

$ perl test-connect.pl www.debian.org
IO::Socket::IP configuration failed did not receive the required stapled OCSP 
response did not receive the required stapled OCSP response at test-connect.pl 
line 8.

Thanks for the bug report.
Is this test-connect.pl available somewhere?

D'oh. Now attached.

--
Jakub Wilk

#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket::SSL;

my $sock = IO::Socket::SSL->new(
    Proto    => 'tcp',
    PeerAddr => ($ARGV[0] // die),
    PeerPort => 'https',
    SSL_ocsp_mode => SSL_OCSP_MUST_STAPLE,
) or die IO::Socket::SSL::errstr;

$sock->close();