diff options
author | Craig A. Berry <craigberry@mac.com> | 2010-04-23 18:29:38 -0500 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2010-05-05 20:36:16 -0500 |
commit | d42e4b2123a85f492741a0b74c9b81bcaca32055 (patch) | |
tree | 59a1fa5d488c87d62d15de19e0197435d3ed3f0b | |
parent | 7024030b6005ae38b124840a4af660bc14966873 (diff) | |
download | perl-d42e4b2123a85f492741a0b74c9b81bcaca32055.tar.gz |
Fix broken -Uuseperlio build on VMS.
We were checking a variable that doesn't exist in the non-default
case of disabling perlio. Now we only look at it when it exists.
(cherry picked from commit a24c654f07035713924a2c157a5149ef670f55a5)
-rw-r--r-- | vms/vms.c | 15 |
1 files changed, 12 insertions, 3 deletions
@@ -3077,7 +3077,10 @@ pipe_exit_routine() #if defined(USE_ITHREADS) && my_perl #endif - && PL_perlio_fd_refcnt) +#ifdef USE_PERLIO + && PL_perlio_fd_refcnt +#endif + ) PerlIO_flush(info->fp); else fflush((FILE *)info->fp); @@ -4685,7 +4688,10 @@ static I32 my_pclose_pinfo(pTHX_ pInfo info) { #if defined(USE_ITHREADS) && my_perl #endif - && PL_perlio_fd_refcnt) +#ifdef USE_PERLIO + && PL_perlio_fd_refcnt +#endif + ) PerlIO_flush(info->fp); else fflush((FILE *)info->fp); @@ -4712,7 +4718,10 @@ static I32 my_pclose_pinfo(pTHX_ pInfo info) { #if defined(USE_ITHREADS) && my_perl #endif - && PL_perlio_fd_refcnt) +#ifdef USE_PERLIO + && PL_perlio_fd_refcnt +#endif + ) PerlIO_close(info->fp); else fclose((FILE *)info->fp); |