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

p4raw-id: //depot/perl@3752

1 files changed, 2 insertions, 2 deletions

diff --git a/perlapi.c b/perlapi.c
index a7934fb8a0..78d1bce4e1 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -1379,9 +1379,9 @@ Perl_instr(pTHXo_ const char* big, const char* little)
 
 #undef  Perl_io_close
 bool
-Perl_io_close(pTHXo_ IO* io)
+Perl_io_close(pTHXo_ IO* io, bool not_implicit)
 {
-    return ((CPerlObj*)pPerl)->Perl_io_close(io);
+    return ((CPerlObj*)pPerl)->Perl_io_close(io, not_implicit);
 }
 
 #undef  Perl_invert