Select Code to Download

    ## From win32.c
    if (mode == P_NOWAIT) {
...
    w32_child_pids[w32_num_children] = (DWORD)ret;
    ++w32_num_children;
    }

    case P_NOWAIT:  /* asynch + remember result */
    if (w32_num_children >= MAXIMUM_WAIT_OBJECTS) {
...
        ret = -1;
        goto RETVAL;
    }

C:\test>perl -le "for (1..100) {Win32::Spawn( $ENV{ComSpec},'/c echo>n
+ull', $pid );print qq[$_\tpid:$pid\t],$?==-1 ? $! : 'OK' };"
1       pid:5492        OK
...
98      pid:4780        OK
99      pid:244 OK
100     pid:4800        OK