Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: Win32::Process::Create and IO::Select bad interaction

by clintp (Curate)
on Jan 09, 2003 at 18:22 UTC ( #225595=note: print w/replies, xml ) Need Help??

in reply to Win32::Process::Create and IO::Select bad interaction

As it turns out, it wasn't the inherit bit (as tye suggested) or a child-inheritance problem at all. Win32 by default won't let processes created with ProcessCreate() inherit sockets in a straightforward way, they have to be passed externally through other means.

Through suggestions given by others reading this node, I tried isolating exactly when the sockets started getting ignored. So I tried POD'ing out all of the shutdown routines. And it was this bit of code here near line 244 in

close($writer); print LOG "Deleting finished $writer\n" if $debug; delete $pool{"$writer"}; $pool_sel->remove($writer);
IO::Select->remove() on an already-closed descriptor seems to alter another descriptor in unknown ways. So it turns out that the file descriptor being affected by remove and the one being closed in the above example *aren't* the same descriptor. The simple fix is:
$pool_sel->remove($writer); close($writer); print LOG "Deleting finished $writer\n" if $debug; delete $pool{"$writer"};
Which solves the problem nicely. The earlier opened descriptors stay open like they should.

I'm unclear as to whether that's a bug in Perl or IO::Select. There are open bugs in Win32 Perl having to do with file descriptor mixups during process creation, so I wouldn't doubt that this might also be another one.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://225595]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (2)
As of 2023-03-24 03:51 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (60 votes). Check out past polls.