At 00:02 29-9-2002, you wrote:
>on 9/27/02 4:12 PM, [EMAIL PROTECTED] purportedly said: > > > I�m having the same problem, in the same circunstances with an specific > site: > > > > https://ibpf.unibanco.com.br/bankmain.asp > > > > Any light on this matter? > >I have the same problem. I have only gotten so far as to see that LWP >transparently passes the timeout value to the appropriate IO::Socket object >(in object creation). Looking at IO::Socket - the whole timeout stuff is commented out: # my $timeout = ${*$sock}{'io_socket_timeout'}; # my $before = time() if $timeout; undef $@; if ($sock->connect(pack_sockaddr_in($rport, $raddr))) { # ${*$sock}{'io_socket_timeout'} = $timeout; return $sock; } return _error($sock, $!, $@ || "Timeout") unless @raddr; # if ($timeout) { # my $new_timeout = $timeout - (time() - $before); # return _error($sock, # (exists(&Errno::ETIMEDOUT) ? Errno::ETIMEDOUT() : $EINVAL), # "Timeout") if $new_timeout <= 0; # ${*$sock}{'io_socket_timeout'} = $new_timeout; # } With kind regards, Melvyn Sopacua $ grep ^info /etc/aliases info: "| /bin/cat >/dev/null"
