… | … | ||
---|---|---|---|
644 | =cut | 644 | =cut |
645 | 645 | ||
646 | sub no_delay { | 646 | sub no_delay { |
647 | $_[0]{no_delay} = $_[1]; | 647 | $_[0]{no_delay} = $_[1]; |
648 | 648 | ||
649 | eval { | ||
650 | local $SIG{__DIE__}; | ||
651 | setsockopt $_[0]{fh}, Socket::IPPROTO_TCP (), Socket::TCP_NODELAY (), int $_[1] | 649 | setsockopt $_[0]{fh}, Socket::IPPROTO_TCP (), Socket::TCP_NODELAY (), int $_[1] |
652 | if $_[0]{fh}; | 650 | if $_[0]{fh}; |
653 | }; | ||
654 | } | 651 | } |
655 | 652 | ||
656 | =item $handle->keepalive ($boolean) | 653 | =item $handle->keepalive ($boolean) |
657 | 654 | ||
658 | Enables or disables the C<keepalive> setting (see constructor argument of | 655 | Enables or disables the C<keepalive> setting (see constructor argument of |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |