diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-10 19:23:13 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-10 19:23:13 +0000 |
| commit | 7d83722c7ee15c7799108c5d79d7c9c34821ec52 (patch) | |
| tree | 5fdaf7ebab10ae979a8340424b296821fa0cbeed /util.c | |
| parent | d460ef459c7692518f607c250b9843bea7e01dd6 (diff) | |
| parent | 3277f1b7fe53cbaf94a0acfb4c91146517cb23b0 (diff) | |
| download | perl-7d83722c7ee15c7799108c5d79d7c9c34821ec52.tar.gz | |
Integrate mainline. (Builds but does not work - something broke pipes...)
p4raw-id: //depot/perlio@8392
Diffstat (limited to 'util.c')
| -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 |