diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-04 23:27:43 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-04 23:27:43 +0000 |
| commit | 5f1a76d08cedee4f2888d077fe9593b03dd9bd13 (patch) | |
| tree | f44d84684c3c4358e30a11cb705f8151996e3b54 /iperlsys.h | |
| parent | b4748376b6239962bd75b743e5a7b14788a2970c (diff) | |
| download | perl-5f1a76d08cedee4f2888d077fe9593b03dd9bd13.tar.gz | |
PERL_IMPLICIT_SYS (almost) works - something odd with "signal"
p4raw-id: //depot/perlio@7983
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index a7bd2b5e2f..66d2b8ebb0 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -902,6 +902,7 @@ typedef int (*LPProcSpawnvp)(struct IPerlProc*, int, const char*, const char*const*); typedef int (*LPProcASpawn)(struct IPerlProc*, void*, void**, void**); #endif +typedef int (*LPProcLastHost)(struct IPerlProc*); struct IPerlProc { @@ -940,6 +941,7 @@ struct IPerlProc LPProcSpawnvp pSpawnvp; LPProcASpawn pASpawn; #endif + LPProcLastHost pLastHost; }; struct IPerlProcInfo @@ -1019,6 +1021,8 @@ struct IPerlProcInfo #define PerlProc_aspawn(m,c,a) \ (*PL_Proc->pASpawn)(PL_Proc, (m), (c), (a)) #endif +#define PerlProc_lasthost() \ + (*PL_Proc->pLastHost)(PL_Proc) #else /* PERL_IMPLICIT_SYS */ |