diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-10 19:34:30 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-10 19:34:30 +0000 |
| commit | 245f541b6f35ec487dff355c77302d41b2c043a6 (patch) | |
| tree | e379eaf8a3734882b1db3632df0e7f0fae83d9b6 /util.c | |
| parent | 7d83722c7ee15c7799108c5d79d7c9c34821ec52 (diff) | |
| download | perl-245f541b6f35ec487dff355c77302d41b2c043a6.tar.gz | |
Back out Simon's pid hackery for now.
p4raw-id: //depot/perlio@8393
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -2663,9 +2663,7 @@ Perl_my_pclose(pTHX_ PerlIO *ptr) LOCK_FDPID_MUTEX; svp = av_fetch(PL_fdpid,PerlIO_fileno(ptr),TRUE); UNLOCK_FDPID_MUTEX; - pid = SvIV(*svp); - if (!pid) - return 0; + pid = SvIVX(*svp); SvREFCNT_dec(*svp); *svp = &PL_sv_undef; #ifdef OS2 |