| … | … | ||
|---|---|---|---|
| 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 |