Replace the winsocket pair sub with this:

sub winsocketpair {
    my $proto = getprotobyname('tcp');
    my $first = 1;

    for (1..5) {

        if ($first) {
            undef $first;
        }
        else {
            carp "winsocketpair failed: $!, retrying"
        }

        socket(my $listener, AF_INET, SOCK_STREAM, $proto)
            or return ();

        socket(my $server, AF_INET, SOCK_STREAM, $proto)
            or return ();

        socket(my $client, AF_INET, SOCK_STREAM, $proto)
            or return ();

        my $true = 1;
        ioctl($client, 0x8004667e, \$true );

        my $addr = sockaddr_in(0, INADDR_LOOPBACK);
        bind($listener, $addr) or return ();
        listen($listener, 1) or return ();
        $addr = getsockname($listener);

        connect($client, $addr) 
            or $! ==  10035 or $! == EINPROGRESS 
            or next;
        my $peer = accept($server, $listener) or next;

        my $false = 0;
        ioctl($client, 0x8004667e, \$false );

        if ($peer eq getsockname($client)) {
            return ($server, $client);
        }

    }
    return ();
}
[download]

And ignore make test--the tests seem to be broken. They sometime pass and sometimes fail?

Simpler:

use Socket qw( AF_UNIX SOCK_STREAM PF_UNSPEC );

sub winsocketpair {
    socketpair(my $fh1, my $fh2, AF_UNIX, SOCK_STREAM, PF_UNSPEC)
        or return ();
    return ($fh1, $fh2);
}
[download]

(From Re^4: why IPC::Open3 can't execute MS-DOS "dir" command?)

Maybe salva will explain why he didn't use that in the first place.

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP an inspiration; A true Folk's Guy

I can not tell if the original suggestions work, because after careful consideration, I have decided to approach my needs from a different and way more easier perspective.

What I'd like to say thou, is that the modification to the subroutine winsocketpair suggested by BrowserUk (see above), stopped making my perl interpreter to hang up.So, whoever comes behind me looking for a solution that requieres Win32::Socketpair, be aware of this needed modification.

Additionally, in my particular case, "use threads qw( async );" complains that "async" is an unknow import, even thou I verified it is there in threads.pm, go figure.

Many thanks to ikegami, BrowserUk and everyone else for the help provided.

Best regards

matematiko

in my particular case, "use threads qw( async );" complains that "async" is an unknow import,

async is exported by default, so it is not necessary to import it explicitly.

Indeed, as long as I can remember, attempting to import it has resulted in an error message:

threads: Unknown import option: async at ...
[download]

That's the problem with people posting "theoretical answers" for things they've never actually done!

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP an inspiration; A true Folk's Guy