diff options
| author | Brian Forbis <bforbis@athenahealth.com> | 2021-05-17 01:26:30 -0400 |
|---|---|---|
| committer | Jens Geyer <Jens-G@users.noreply.github.com> | 2021-10-18 22:08:49 +0200 |
| commit | 50dd262f282dfaf3847b61b433dcbfea6d20ac4f (patch) | |
| tree | 44e779c78dbc03d44f829b37dd7af24ef4fd307f | |
| parent | 2145741a9db80b2127e88ee5c792fe74d73b19dd (diff) | |
| download | thrift-50dd262f282dfaf3847b61b433dcbfea6d20ac4f.tar.gz | |
THRIFT-5416: Allow UDP Sockets
| -rw-r--r-- | lib/perl/lib/Thrift/Socket.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl/lib/Thrift/Socket.pm b/lib/perl/lib/Thrift/Socket.pm index ba0db5eb4..034956ce2 100644 --- 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); } |