http://www.perlmonks.org?node_id=1007315


in reply to Re^5: Win32API::File not setting HANDLE_FLAG_PROTECT_FROM_CLOSE (wrong layer)
in thread Win32API::File not setting HANDLE_FLAG_PROTECT_FROM_CLOSE

That works. Adding $ENV{myosh} = $os_handle; to the caller (also removing SetHandleInformation, it isn't needed) and rewriting print_to_3.pl as 
use Win32API::File qw(OsFHandleOpen);

OsFHandleOpen(\*OUT,$ENV{myosh},"w");
$x=print OUT "***\nHere is data to OsH $ENV{myosh}\n***\n";
warn "print=$x ($!)\n" unless $x;

[download]
works... Alas the "real" code I am dealing with that "print_to_3.pl" replaces is Unix-y C code. I have already made it use STDERR instead of its own stream, which is working well enough- if there's an error message then the stream is no good anyway, and in the usual case it's easier to manipulate STDERR .
  • Comment on Re^6: Win32API::File not setting HANDLE_FLAG_PROTECT_FROM_CLOSE (wrong layer)
  • Download Code

In Section Seekers of Perl Wisdom