On Sat, Jun 08, 2013 at 01:02:56PM +0100, Dominic Hargreaves wrote:
> Source: libhttp-daemon-ssl-perl
> Version: 1.04-3
> Severity: serious
> Justification: FTBFS
> 
> This package FTBFS (in a clean sid sbuild session):
> 
> Can't call method "get_request" on an undefined value at t/testmodule.t line 
> 90.
> t/testmodule.t .. 
> Dubious, test returned 255 (wstat 65280, 0xff00)
> Failed 1/2 test programs. 2/10 subtests failed.
> Failed 4/9 subtests 

The package seems to work, but the test case needs some
tweaks to work with more recent SSL libs (patch attached).

-- 
Valentin
--- t/testmodule.t	2008-02-12 02:27:01.000000000 +0100
+++ t/testmodule2.t	2015-09-29 14:07:23.792135915 +0200
@@ -36,6 +36,7 @@
 
     $client = new IO::Socket::SSL(PeerAddr => $SSL_SERVER_ADDR,
 				  PeerPort => $SSL_SERVER_PORT,
+				  SSL_version => 'TLSv1',
 				  SSL_verify_mode => 0x01,
 				  SSL_ca_file => "certs/test-ca.pem");
 
@@ -58,7 +59,7 @@
 				   Timeout => 30,
 				   ReuseAddr => 1,
 				   SSL_verify_mode => 0x00,
-				   SSL_ca_file => "certs/test-ca.pem",
+				   SSL_key_file => "certs/server-key.pem",
 				   SSL_cert_file => "certs/server-cert.pem");
 
 if (!$server) {

Reply via email to