diff options
| author | Hrunting Johnson <unknown> | 2003-07-14 05:37:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-24 08:43:33 +0000 |
| commit | 96e47f5ba733cae0f440f31ded7475fca1ce9a66 (patch) | |
| tree | 25ed533743eeb3719324089240fd480b622bb2db /ext/IO | |
| parent | 929a0744021ffa24a9c2c65030b2f147d2412c41 (diff) | |
| download | perl-96e47f5ba733cae0f440f31ded7475fca1ce9a66.tar.gz | |
[perl #22965] Cannot set undef timeout in IO::Socket in perl 5.8.0
From: Hrunting Johnson (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-22965-60791.13.0539297217452@rt.perl.org>
p4raw-id: //depot/perl@20193
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm index 7f434d9487..f8c3cb346a 100644 --- a/ext/IO/lib/IO/Socket.pm +++ b/ext/IO/lib/IO/Socket.pm @@ -273,9 +273,9 @@ sub atmark { sub timeout { @_ == 1 || @_ == 2 or croak 'usage: $sock->timeout([VALUE])'; my($sock,$val) = @_; - my $r = ${*$sock}{'io_socket_timeout'} || undef; + my $r = ${*$sock}{'io_socket_timeout'}; - ${*$sock}{'io_socket_timeout'} = 0 + $val + ${*$sock}{'io_socket_timeout'} = defined $val ? 0 + $val : $val if(@_ == 2); $r; |