fuzzyping has asked for the wisdom of the Perl Monks concerning the following question:
... client_open_log: entering answer_open_log: entering answer_open_log: open: Operation not supported receive_fd: recvmsg: expected received 1 got 0#
#!/usr/bin/perl use strict; use IO::Socket; use constant SOCK_PATH => '/tmp/flowpipe.sock'; $SIG{TERM} = $SIG{INT} = sub { exit 0 }; my $path = shift || SOCK_PATH; umask(0111); my $sock = IO::Socket::UNIX->new(Local => SOCK_PATH, Listen => SOMAXCO +NN); while (1) { my $data; my $peer = recv($sock, $data, 128, 0); print $data; } END { unlink $path if $path }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: IO::Socket::UNIX recvmsg error
by Fletch (Bishop) on May 16, 2005 at 02:16 UTC | |
by fuzzyping (Chaplain) on May 16, 2005 at 02:21 UTC | |
by mattk (Pilgrim) on May 16, 2005 at 05:53 UTC | |
by fuzzyping (Chaplain) on May 16, 2005 at 10:19 UTC | |
|
Re: IO::Socket::UNIX recvmsg error
by thcsoft (Monk) on May 16, 2005 at 01:44 UTC | |
by fuzzyping (Chaplain) on May 16, 2005 at 01:50 UTC |