From owner-freebsd-current@FreeBSD.ORG  Sun Feb 22 15:50:16 2004
Return-Path: <owner-freebsd-current@FreeBSD.ORG>
Delivered-To: freebsd-current@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 5DE7716A4CF
	for <freebsd-current@freebsd.org>;
	Sun, 22 Feb 2004 15:50:16 -0800 (PST)
Received: from mail.paymentonline.com (mail.paymentonline.com [63.236.114.6])
	by mx1.FreeBSD.org (Postfix) with SMTP id 218A543D2D
	for <freebsd-current@freebsd.org>;
	Sun, 22 Feb 2004 15:50:16 -0800 (PST)
	(envelope-from freebsd@paymentonline.net)
Received: (qmail 4805 invoked from network); 22 Feb 2004 23:50:10 -0000
Received: from evrtwa1-ar16-4-40-004-185.evrtwa1.dsl-verizon.net (HELO chris2)
	(4.40.4.185)
	by mail.paymentonline.com with SMTP; 22 Feb 2004 23:50:10 -0000
Message-ID: <010901c3f99f$0f262420$b9042804@chris2>
From: "Chris Ochs" <freebsd@paymentonline.net>
To: <freebsd-current@freebsd.org>
References: <00f201c3f99c$b58a4ce0$b9042804@chris2>
Date: Sun, 22 Feb 2004 15:53:24 -0800
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Subject: Re: Perl non blocking sockets on 5.2
X-BeenThere: freebsd-current@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
List-Id: Discussions about the use of FreeBSD-current
	<freebsd-current.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-current>,
	<mailto:freebsd-current-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-current>
List-Post: <mailto:freebsd-current@freebsd.org>
List-Help: <mailto:freebsd-current-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-current>,
	<mailto:freebsd-current-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 22 Feb 2004 23:50:16 -0000


A bit more information on this.

IO::Handle::blocking returns 1, which is normal.  The connect returns undef
but it sets EINPROGRESS and $! contains 'Operation in progress'.
>From a quick glance at the server code, the server is setting SO_REUSEADDR
=1, SO_KEEPALIVE =1,  SO_LINGER =0,  and O_NONBLOCK on the socket
descriptor.


> 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;
> }
>
> _______________________________________________
> freebsd-current@freebsd.org mailing list
> http://lists.freebsd.org/mailman/listinfo/freebsd-current
> To unsubscribe, send any mail to "freebsd-current-unsubscribe@freebsd.org"
>