From f2b5be74500fffd3dc232fca7cb3c51bc3b9abf9 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 26 Jul 1999 02:11:31 +0000
Subject: ensure implicitly closed handles don't set $? or $!

p4raw-id: //depot/perl@3752
---
 perlapi.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perlapi.c')

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
-- 
cgit v1.2.1