Skip Menu |
 

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

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

People
Owner: Nobody in particular
Requestors: russ [...] zerotech.net
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.96
Fixed in: 0.97



Subject: start_SSL loses fileno after bless.
Download (untitled) / with headers
text/plain 1.3k
While trying to convert an open accepted socket from IO::Socket::INET to IO::Socket:SSL, the fileno is somehow lost immediately after the bless. Consider the following source from SSL.pm, I added 2 lines for debugging: sub start_SSL { my ($class,$socket) = (shift,shift); return $class->error("Not a socket") unless(ref($socket)); my $arg_hash = (ref($_[0]) eq 'HASH') ? $_[0] : {@_}; my $original_class = ref($socket); print "Before bless, fileno = " . fileno($socket) . "\n"; bless $socket, $class; print "After bless, fileno = " . fileno($socket) . "\n"; $socket->configure_SSL($arg_hash) or bless($socket, $original_class) && return; $arg_hash = ${*$socket}{'_SSL_arguments'}; print "Made it here.\n"; my $result = ($arg_hash->{'SSL_server'} ? $socket->accept_SSL (${*$socket}{'_SSL_ctx'}, $arg_hash) : $socket->connect_SSL($socket)); return $result ? $socket : bless($socket, $original_class) && (); } When run this (where $fh is an instance of IO::Socket::INET): IO::Socket::SSL->start_SSL( $fh, SSL_server => 1, SSL_key_file => 'server_key.pem', SSL_cert_file => 'server_crt.pem', ); I see the following output: Before bless, fileno = 6 After bless, fileno = Of course then shortly after that (With debug4 set): Socket has no fileno Which is generated from accept_SSL, and of course fails.


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.