Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
small optimizations
  • Loading branch information
kraih committed Jun 5, 2013
1 parent 4f01afe commit c2752ca
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 10 deletions.
2 changes: 1 addition & 1 deletion Changes
@@ -1,5 +1,5 @@

4.12 2013-06-04
4.12 2013-06-05

4.11 2013-06-03
- Added allow and append methods to Mojo::Headers.
Expand Down
16 changes: 7 additions & 9 deletions lib/Mojo/IOLoop/Client.pm
Expand Up @@ -73,16 +73,15 @@ sub _connect {
sub _tls {
my $self = shift;

# Switch between reading and writing
# Connected
my $handle = $self->{handle};
if ($self->{tls} && !$handle->connect_SSL) {
my $err = $IO::Socket::SSL::SSL_ERROR;
if ($err == TLS_READ) { $self->reactor->watch($handle, 1, 0) }
elsif ($err == TLS_WRITE) { $self->reactor->watch($handle, 1, 1) }
return;
}
return $self->_cleanup->emit_safe(connect => $handle)
if $handle->connect_SSL;

$self->_cleanup->emit_safe(connect => $handle);
# Switch between reading and writing
my $err = $IO::Socket::SSL::SSL_ERROR;
if ($err == TLS_READ) { $self->reactor->watch($handle, 1, 0) }
elsif ($err == TLS_WRITE) { $self->reactor->watch($handle, 1, 1) }
}

sub _try {
Expand Down Expand Up @@ -118,7 +117,6 @@ sub _try {
SSL_verifycn_name => $args->{address},
SSL_verifycn_scheme => $args->{tls_ca} ? 'http' : undef
);
$self->{tls} = 1;
my $reactor = $self->reactor;
$reactor->remove($handle);
return $self->emit_safe(error => 'TLS upgrade failed')
Expand Down

0 comments on commit c2752ca

Please sign in to comment.