diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-22 10:54:35 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-22 10:54:35 +0000 |
| commit | 4a7d1889681c73a99b9a39d8a3d3760367674002 (patch) | |
| tree | 1a33a342ee466f59ecae3cb072692193601ba394 /iperlsys.h | |
| parent | 1f47406448f2d51ae8241e146df3675f96b72815 (diff) | |
| download | perl-4a7d1889681c73a99b9a39d8a3d3760367674002.tar.gz | |
Die on n-arg open(...,"",xxx,yyy,...)
- redirect pipe cases to PerlProc_popen_list() (which just croaks for now)
- die on read/write cases so we can decide what it means later.
p4raw-id: //depot/perlio@9294
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/iperlsys.h b/iperlsys.h index fdbd12a6fc..8a628cd658 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -253,7 +253,7 @@ struct IPerlStdIOInfo #define PerlSIO_printf Perl_fprintf_nocontext #define PerlSIO_stdoutf Perl_printf_nocontext #define PerlSIO_vprintf(f,fmt,a) \ - (*PL_StdIO->pVprintf)(PL_StdIO, (f),(fmt),a) + (*PL_StdIO->pVprintf)(PL_StdIO, (f),(fmt),a) #define PerlSIO_ftell(f) \ (*PL_StdIO->pTell)(PL_StdIO, (f)) #define PerlSIO_fseek(f,o,w) \ @@ -982,6 +982,8 @@ struct IPerlProcInfo (*PL_Proc->pPauseProc)(PL_Proc) #define PerlProc_popen(c, m) \ (*PL_Proc->pPopen)(PL_Proc, (c), (m)) +#define PerlProc_popen_list(m, n, a) \ + (*PL_Proc->pPopenList)(PL_Proc, (m), (n), (a)) #define PerlProc_pclose(f) \ (*PL_Proc->pPclose)(PL_Proc, (f)) #define PerlProc_pipe(fd) \ @@ -1043,6 +1045,7 @@ struct IPerlProcInfo #define PerlProc_killpg(i, a) killpg((i), (a)) #define PerlProc_pause() Pause() #define PerlProc_popen(c, m) my_popen((c), (m)) +#define PerlProc_popen_list(m,n,a) my_popen_list((m),(n),(a)) #define PerlProc_pclose(f) my_pclose((f)) #define PerlProc_pipe(fd) pipe((fd)) #define PerlProc_setuid(u) setuid((u)) |