From 0db75649ebbed4ff74012f2a38f37a2e00638180 Mon Sep 17 00:00:00 2001 From: Scott O'Neil Date: Wed, 7 Mar 2018 16:07:41 -0600 Subject: [PATCH] Allow for SSL connection options to be passed to AnyEvent::Handle (cherry picked from commit 3e6e4a33cd0029e2abc9135cf537c5c9f1cbb4e6) Signed-off-by: Nicolas R --- lib/AnyEvent/RabbitMQ.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/AnyEvent/RabbitMQ.pm b/lib/AnyEvent/RabbitMQ.pm index 03bfd3a..791ddb7 100644 --- a/lib/AnyEvent/RabbitMQ.pm +++ b/lib/AnyEvent/RabbitMQ.pm @@ -171,6 +171,7 @@ sub connect { if exists $self->{drain_condvar}; }, $args{tls} ? (tls => 'connect') : (), + $args{tls_ctx} ? ( tls_ctx => $args{tls_ctx} ) : (), ); $self->_read_loop($args{on_close}, $args{on_read_failure}); $self->_start(%args,); @@ -686,6 +687,7 @@ AnyEvent::RabbitMQ - An asynchronous and multi channel Perl AMQP client. vhost => '/', timeout => 1, tls => 0, # Or 1 if you'd like SSL + tls_ctx => $anyevent_tls # or a hash of AnyEvent::TLS options. tune => { heartbeat => 30, channel_max => $whatever, frame_max = $whatever }, on_success => sub { my $ar = shift;