THRIFT-5416: Allow UDP Sockets
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);
}