This is the mail archive of the
cygwin@cygwin.com
mailing list for the Cygwin project.
cygwin recv problem?
- To: cygwin <cygwin at sources dot redhat dot com>
- Subject: cygwin recv problem?
- From: "Simon McCaughey" <simonmcc at nortelnetworks dot com>
- Date: Wed, 21 Mar 2001 10:17:14 -0000
Hi all
problem with my perl =>
creating a IO::Socket::INET handle, when i call $handle->recv(....) it
doesnt seem to block?? anyone know about this?
works perfectly in 5.6.0 (activeperl, perl built for linux, and HP-UX)
I presume that its something to do with cygwin's 'c' recv() function
any help/hints welcome!!
Simon.
=======================================
versions and full code are below for anyone interested
perl version:
v5.6.1 built for cygwin
works with
v5.6.0 built for MSWin32-x86-multi-thread
v5.6.0 built for 9000/777-hpux
IO::Socket::INET version (all OSs) 1.25
================CODE=====================
sub _connect
{
my $self=shift;
my $interface=$self->{interface};
my %info=(Proto => "tcp",
PeerAddr => $self->{ip_address},
PeerPort => $self->{port},
);
p_debug("interface for $self->{name} [$self->{alias}] is
\"$interface\"...");
my $handle=$self->_check_for_registered_connection(%info,
interface => $interface,
);
if (! $handle)
{
p_user("open connection to inst_daemon ...");
$handle = IO::Socket::INET->new(%info,
Timeout => 4);
die "Could not connect to $self->{ip_address}:$self->{port}
via $interface" unless $handle;
p_user("connected successfully\n\n");
$handle->autoflush(1);
$self->_register_connection(%info,
interface => $interface,
handle => $handle
);
}
else
{
p_user("reusing existing connection\n");
}
$self->{connection}=$handle;
my $response;
print $handle "5%:SENS:DATA:TEL:TEST?";
$handle->recv($response,1000);
print "GOT:: : $response\n";
}
--
Want to unsubscribe from this list?
Check out: http://cygwin.com/ml/#unsubscribe-simple