Skip site navigation (1)Skip section navigation (2)
Date:      Sun, 22 Feb 2004 15:36:34 -0800
From:      "Chris Ochs" <freebsd@paymentonline.net>
To:        <freebsd-current@freebsd.org>
Subject:   Perl non blocking sockets on 5.2
Message-ID:  <00f201c3f99c$b58a4ce0$b9042804@chris2>

next in thread | raw e-mail | index | archive | help
This code is from Cache::Memcached which is a perl interface to memcached.
It works as is on 4.9, but on 5.2-RC the connect returns undef unless I
comment out the calls to IO::Handle::blocking.

Seems like there is some socket behavior which is different in 5.x then 4.x
that would cause this.  Anyone have any ideas?

Chris

------------------------------------------
sub _connect_sock { # sock, sin, timeout
    my ($sock, $sin, $timeout) = @_;
    $timeout ||= 0.25;

       my $block = IO::Handle::blocking($sock, 0) if $timeout;

    my $ret = connect($sock, $sin);
       if (!$ret && $timeout && $!{'EINPROGRESS'}) {

        my $win='';
        vec($win, fileno($sock), 1) = 1;

        if (select(undef, $win, undef, $timeout) > 0) {
            $ret = connect($sock, $sin);
            # EISCONN means connected & won't re-connect, so success
            $ret = 1 if !$ret && $!{'EISCONN'};
        }
    }

        IO::Handle::blocking($sock, $block) if $timeout;
    return $ret;
}



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?00f201c3f99c$b58a4ce0$b9042804>