commit 50dd262f282dfaf3847b61b433dcbfea6d20ac4f
author Brian Forbis <bforbis@athenahealth.com> Mon May 17 01:26:30 2021 -0400
committer Jens Geyer <Jens-G@users.noreply.github.com> Mon Oct 18 22:08:49 2021 +0200
tree 44e779c78dbc03d44f829b37dd7af24ef4fd307f
parent 2145741a9db80b2127e88ee5c792fe74d73b19dd

THRIFT-5416: Allow UDP Sockets

lib/perl/lib/Thrift/Socket.pm

diff --git a/lib/perl/lib/Thrift/Socket.pm b/lib/perl/lib/Thrift/Socket.pm
index ba0db5e..034956c 100644
--- a/lib/perl/lib/Thrift/Socket.pm
+++ b/lib/perl/lib/Thrift/Socket.pm
@@ -57,7 +57,7 @@
         port         => 9090,
         recvTimeout  => 10000,
         sendTimeout  => 10000,
-
+        proto        => 'tcp',
         handle       => undef
     };
 
@@ -260,7 +260,7 @@
     my $self = shift;
     return IO::Socket::INET->new(PeerAddr => $self->{host},
                                  PeerPort => $self->{port},
-                                 Proto    => 'tcp',
+                                 Proto    => $self->{proto},
                                  Timeout  => $self->{sendTimeout} / 1000);
 }