Skip Menu |
 

This queue is for tickets about the IO-Socket-SSL CPAN distribution.

Report information
The Basics
Id: 101020
Status: resolved
Priority: 0/
Queue: IO-Socket-SSL

People
Owner: Nobody in particular
Requestors: alexander.bluhm [...] gmx.net
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 2.008
Fixed in: (no value)



Subject: analyze-ssl.pl with http_proxy has bad scheme
Download (untitled) / with headers
text/plain 1.3k
When running analyse_ssl with the http_proxy example I get this error $ analyze-ssl.pl --starttls http_proxy:proxy_host:proxy_port www.live.com scheme not defined at ./util/analyze-ssl.pl line 284. The error message does not work as it overwrites the scheme before printing. --- lib/IO/Socket/SSL.pm.orig Tue Dec 16 07:31:43 2014 +++ lib/IO/Socket/SSL.pm Fri Dec 19 23:13:10 2014 @@ -1557,7 +1557,7 @@ if ( defined &Net::SSLeay::get_peer_cert_chain my $publicsuffix = shift; if ( ! ref($scheme) ) { $DEBUG>=3 && DEBUG( "scheme=$scheme cert=$cert" ); - $scheme = $scheme{$scheme} or croak "scheme $scheme not defined"; + $scheme = $scheme{$scheme} || croak "scheme $scheme not defined"; } return 1 if ! %$scheme; # 'none' Then I get this error. scheme http not defined at ./util/analyze-ssl.pl line 284. There is a leading space in the scheme definitions. --- util/analyze-ssl.pl.orig Fri Dec 5 14:18:34 2014 +++ util/analyze-ssl.pl Fri Dec 19 23:12:25 2014 @@ -12,7 +12,7 @@ my $ocsp_cache = $can_ocsp && IO::Socket::SSL::OCSP_Ca my %starttls = ( '' => [ 443,undef, 'http' ], 'smtp' => [ 25, \&smtp_starttls, 'smtp' ], - 'http_proxy' => [ 443, \&http_connect,' http' ], + 'http_proxy' => [ 443, \&http_connect,'http' ], 'http_upgrade' => [ 80, \&http_upgrade,'http' ], 'imap' => [ 143, \&imap_starttls,'imap' ], 'pop' => [ 110, \&pop_stls,'pop3' ],
Am Fr 19. Dez 2014, 17:27:22, bluhm schrieb: Show quoted text
> ...
fixed in git 4f11bca Danke, Steffen
From: alexander.bluhm [...] gmx.net
Download (untitled) / with headers
text/plain 243b
And it would be nice to have a #!/usr/bin/perl in analyze-ssl. --- util/analyze-ssl.pl.orig Fri Dec 5 14:18:34 2014 +++ util/analyze-ssl.pl Fri Dec 19 23:40:17 2014 @@ -1,3 +1,5 @@ +#!/usr/bin/perl + use strict; use warnings; use Socket;
Download (untitled) / with headers
text/plain 134b
Am Fr 19. Dez 2014, 17:47:03, bluhm schrieb: Show quoted text
> And it would be nice to have a #!/usr/bin/perl in analyze-ssl.
fixed too: git 1e66fe4


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.