ensure implicitly closed handles don't set $? or $!

p4raw-id: //depot/perl@3752

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 8550332091..0c482604cf 100644
--- a/sv.c
+++ b/sv.c
@@ -2979,7 +2979,7 @@ Perl_sv_clear(pTHX_ register SV *sv)
 	    IoIFP(sv) != PerlIO_stdout() &&
 	    IoIFP(sv) != PerlIO_stderr())
 	{
-	  io_close((IO*)sv);
+	    io_close((IO*)sv, FALSE);
 	}
 	if (IoDIRP(sv)) {
 	    PerlDir_close(IoDIRP(sv));