Bug #28914 for Net-FTPSSL: Process doesn't work with Implicit connections (990).

Hi I am facing same problem in release 0.06. Whenever I try to make a implicit FTPS connection, process hangs. I am trying to invoke the constructor as: my $ftps = Net::FTPSSL->new( <IPA>, Encryption => IMP_CRYPT, Timeout => 30, Debug => 1, trace => 1, ); Also, the timeout value specified does not seems to be effective. Is there a workaround for this?

I possibly have the workaround for this. In the constructor at line 82 we check the socket response: return undef unless ( response($socket) == CMD_OK ); But in case of implicit this hangs as the channel is still on clear and not converted to SSL. If we do this check later after starting SSL, it would work fine. Modified snippet is: 80 $socket->autoflush(1); 81 ${*$socket}{'debug'} = $debug; 82 ===> 83 #return undef unless ( response($socket) == CMD_OK ); 84 85 # In explicit mode, FTPSSL send an AUTH SSL command, catch the messages 86 # and then transform the clear connection in a crypted one. 87 if ( $encrypt_mode eq EXP_CRYPT ) { 88 command( $socket, "AUTH", ($use_ssl ? "SSL" : "TLS" ) ); 89 return undef unless ( response($socket) == CMD_OK ); 90 } 91 92 # Turn the clear connection in a SSL one. 93 my $mode = $use_ssl ? "SSLv23" : "TLSv1"; 94 my $obj = $type->start_SSL( $socket, SSL_version => $mode ) 95 or croak ( "$mode: " . IO::Socket::SSL::errstr () ); 96 97 # This is made for catch the banner when the connection 98 # is implicitly crypted. ===> 99 if ( $encrypt_mode eq IMP_CRYPT ) { ===> 100 return undef unless ( response($socket) == CMD_OK ); ===> 101 } 102 103 ${*$obj}{'debug'} = $debug;