From dc0d0a5f1eb5d299294348324bac49576ae83607 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 26 Mar 2001 21:34:57 +0000 Subject: [PATCH] Too much cut-and-paste in #9363. p4raw-id: //depot/perl@9367 --- pp_sys.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/pp_sys.c b/pp_sys.c index d6266dc..ee02ccd 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -2266,8 +2266,10 @@ PP(pp_sockpair) RETPUSHUNDEF; } - if (IoIFP(io)) - do_close(gv, FALSE); + if (IoIFP(io1)) + do_close(gv1, FALSE); + if (IoIFP(io2)) + do_close(gv2, FALSE); TAINT_PROPER("socketpair"); if (PerlSock_socketpair(domain, type, protocol, fd) < 0) -- 1.8.3.1