In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a24c654f07035713924a2c157a5149ef670f55a5?hp=6ba8cc3796ec7d9118fe777db057a603fcc4595d>
- Log ----------------------------------------------------------------- commit a24c654f07035713924a2c157a5149ef670f55a5 Author: Craig A. Berry <[email protected]> Date: Fri Apr 23 18:29:38 2010 -0500 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. M vms/vms.c commit 839d17582bad556c85fba50bb136d1c1fa878a54 Author: Craig A. Berry <[email protected]> Date: Fri Apr 23 17:54:05 2010 -0500 Fix -Uuseperlio command-line option in configure.com. Formerly it only worked if you went through all the questions interactively and explicitly answered no. M configure.com ----------------------------------------------------------------------- Summary of changes: configure.com | 2 +- vms/vms.c | 15 ++++++++++++--- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/configure.com b/configure.com index 0fce752..721b889 100644 --- a/configure.com +++ b/configure.com @@ -3053,7 +3053,7 @@ $! $ bool_dflt = "y" $ IF F$TYPE(useperlio) .NES. "" $ then -$ if f$extract(0,1,f$edit(useperlio,"collapse,upcase")) .eqs. "N" .or. useperlio .eqs. "undef" then bool_dflt = "n" +$ if .not. useperlio .or. useperlio .eqs. "undef" then bool_dflt = "n" $ endif $ IF .NOT. silent $ THEN diff --git a/vms/vms.c b/vms/vms.c index 45bfe21..60f01e3 100644 --- a/vms/vms.c +++ b/vms/vms.c @@ -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); -- Perl5 Master Repository
