From e5e666f1ef2b659bff4c0514f6c1f628540018ab Mon Sep 17 00:00:00 2001
From: Sebastian Riedel <sri@cpan.org>
Date: Mon, 12 Jun 2017 18:19:05 +0200
Subject: [PATCH] clean up the event loop consistently (closes #1102)

---
 lib/Mojo/IOLoop/TLS.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Mojo/IOLoop/TLS.pm b/lib/Mojo/IOLoop/TLS.pm
index ffcb7123a8..48a77e4772 100644
--- a/lib/Mojo/IOLoop/TLS.pm
+++ b/lib/Mojo/IOLoop/TLS.pm
@@ -82,7 +82,7 @@ sub _expand {
 sub _tls {
   my ($self, $handle, $server) = @_;
 
-  return $self->emit(upgrade => delete $self->{handle})
+  return $self->_cleanup->emit(upgrade => delete $self->{handle})
     if $server ? $handle->accept_SSL : $handle->connect_SSL;
 
   # Switch between reading and writing