From 2511c87a67908f1ebc5ccc485bc6450de4952576 Mon Sep 17 00:00:00 2001
From: Scott O'Neil <scott@cpanel.net>
Date: Sun, 17 May 2020 01:23:25 +0000
Subject: [PATCH] Pass peername to AnyEvent::Handle so that TLS peer validation
 is possible

---
 lib/AnyEvent/RabbitMQ.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/AnyEvent/RabbitMQ.pm b/lib/AnyEvent/RabbitMQ.pm
index 06fe61a..81a3ebd 100644
--- a/lib/AnyEvent/RabbitMQ.pm
+++ b/lib/AnyEvent/RabbitMQ.pm
@@ -170,6 +170,7 @@ sub connect {
                     $self->{drain_condvar}->send
                         if exists $self->{drain_condvar};
                 },
+                peername => $args{host},
                 $args{tls} ? (tls => 'connect') : (),
                 $args{tls_ctx} ? ( tls_ctx => $args{tls_ctx} ) : (),
             );