[Patch] [perl #32446] close leaves fd open

perl #32446 describes a bug with perl5.8 on OpenBSD, where a STDOUT gets 
duped to a socket and a close(STDOUT) later leaves the socket open. 
Attached is a proposed and tested fix for the problem, which simply 
duplicates the FreeBSD code for OpenBSD.

Details:
In perlio.c there is a function PerlIOStdio_invalidate_fileno which gets 
used to close a stdio FILE* without closing the fd. There are a lot of 
special cases for various platforms and then there is a fallback. 
Apperantly the fallback is buggy.
The patch does not attempt to fix the fallback, it simply adds another 
special case, this time for __OpenBSD__

• [Patch] [perl #32446] close leaves fd open by Steffen Ullrich
• Re: [Patch] [perl #32446] close leaves fd open by Rafael Garcia-Suarez
• Re: [Patch] [perl #32446] close leaves fd open by Steffen Ullrich
• Re: [Patch] [perl #32446] close leaves fd open by Steffen Ullrich