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__Thread Next