In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8492b23f5f79134c3ff03c028a30efcaceab1291?hp=5695ab3c9022fbf13698540bb845a4d1ab200701>
- Log ----------------------------------------------------------------- commit 8492b23f5f79134c3ff03c028a30efcaceab1291 Author: Tony Cook <[email protected]> Date: Thu Oct 23 10:59:11 2014 +1100 [perl #121159] use the updated win32_popenlist() even with USE_IMP_SYS ----------------------------------------------------------------------- Summary of changes: util.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/util.c b/util.c index add8f1d..eadd21d 100644 --- a/util.c +++ b/util.c @@ -2426,8 +2426,10 @@ Perl_my_popen_list(pTHX_ const char *mode, int n, SV **args) PerlLIO_close(pp[0]); return PerlIO_fdopen(p[This], mode); #else -# ifdef OS2 /* Same, without fork()ing and all extra overhead... */ +# if defined(OS2) /* Same, without fork()ing and all extra overhead... */ return my_syspopen4(aTHX_ NULL, mode, n, args); +# elif defined(WIN32) + return win32_popenlist(mode, n, args); # else Perl_croak(aTHX_ "List form of piped open not implemented"); return (PerlIO *) NULL; -- Perl5 Master Repository
