From: Simon Cozens Date: Wed, 10 Jan 2001 18:39:35 +0000 (+0000) Subject: Fix my_pclose segfault X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3277f1b7fe53cbaf94a0acfb4c91146517cb23b0;p=p5sagit%2Fp5-mst-13.2.git Fix my_pclose segfault Message-ID: <20010110183934.A25640@pembro26.pmb.ox.ac.uk> p4raw-id: //depot/perl@8391 --- diff --git a/util.c b/util.c index 1261b98..c9174fe 100644 --- a/util.c +++ b/util.c @@ -2663,7 +2663,9 @@ Perl_my_pclose(pTHX_ PerlIO *ptr) LOCK_FDPID_MUTEX; svp = av_fetch(PL_fdpid,PerlIO_fileno(ptr),TRUE); UNLOCK_FDPID_MUTEX; - pid = SvIVX(*svp); + pid = SvIV(*svp); + if (!pid) + return 0; SvREFCNT_dec(*svp); *svp = &PL_sv_undef; #ifdef OS2