THRIFT-5416: Allow UDP Sockets

apache · Oct 18, 2021 · 50dd262 · 50dd262
1 parent 2145741
commit 50dd262
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/perl/lib/Thrift/Socket.pm b/lib/perl/lib/Thrift/Socket.pm
@@ -57,7 +57,7 @@ sub new
         port         => 9090,
         recvTimeout  => 10000,
         sendTimeout  => 10000,
-
+        proto        => 'tcp',
         handle       => undef
     };
 
@@ -260,7 +260,7 @@ sub __open
     my $self = shift;
     return IO::Socket::INET->new(PeerAddr => $self->{host},
                                  PeerPort => $self->{port},
-                                 Proto    => 'tcp',
+                                 Proto    => $self->{proto},
                                  Timeout  => $self->{sendTimeout} / 1000);
 }