diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2001-01-10 18:39:35 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-10 18:43:15 +0000 |
| commit | 3277f1b7fe53cbaf94a0acfb4c91146517cb23b0 (patch) | |
| tree | b3083226d71960932b9dee9b103da73cfc136f2d | |
| parent | 7ec3aa30ee856e876cd070342125b6b789feff5a (diff) | |
| download | perl-3277f1b7fe53cbaf94a0acfb4c91146517cb23b0.tar.gz | |
Fix my_pclose segfault
Message-ID: <20010110183934.A25640@pembro26.pmb.ox.ac.uk>
p4raw-id: //depot/perl@8391
| -rw-r--r-- | util.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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 |