diff options
author | Tony Cook <tony@develop-help.com> | 2014-10-23 10:59:11 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2014-10-23 10:59:11 +1100 |
commit | 8492b23f5f79134c3ff03c028a30efcaceab1291 (patch) | |
tree | 32563e1488bc9c7438c9d4a34b72045622d35b5e /util.c | |
parent | 5695ab3c9022fbf13698540bb845a4d1ab200701 (diff) | |
download | perl-8492b23f5f79134c3ff03c028a30efcaceab1291.tar.gz |
[perl #121159] use the updated win32_popenlist() even with USE_IMP_SYS
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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; |