note to self: windows support

[skaji]

It may be possible to support windows if we use IO::Socket::INET + system 1, cmds.

[zmughal]

Hi, I have something like that via IO::Pipely orbital-transfer@de51c60.

However, when I try to make this work with cpm, I have the following issues that need to be addressed orbital-transfer/p5-Orbital-Launch#79.

[skaji]

Just letting you know:

fork(2) emulation in windows has various limitation and would introduce some "mysterious" issues.
So I will not use fork(2) in windows.

I was thinking something like:

#!/usr/bin/env perl
use strict;
use warnings;

if ($ENV{WORKER_PROCESS}) {
    # This is worker process
    # connect the main process by IO::Socket::INET....
    ...;
    exit;
}

# This is main process

my %pid;
for my $i (1..5) {
    local $ENV{WORKER_PROCESS} = 1;
    my $pid = system {$^X} 1, $^X, $0;
    $pid{$pid}++;
}

# connect worker processes by IO::Socket::INET...
...;

while (%pid) {
    my $pid = wait;
    if (delete $pid{$pid}) {
        # OK
    } else {
        warn "unexpected";
    }
}

It's just an idea, and does not work per se.