diff options
| author | Paul Szabo <psz@maths.usyd.edu.au> | 2004-03-19 19:17:56 +1100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-03-23 13:38:11 +0000 |
| commit | ae3f3efdef21cd5e7aaa929b0e067c679af06832 (patch) | |
| tree | cde299b852fe196281b768e89463e9680ce12045 /perlapi.h | |
| parent | 45a2796c78934ddcc83dbc97c4c2f291dc19cfd1 (diff) | |
| download | perl-ae3f3efdef21cd5e7aaa929b0e067c679af06832.tar.gz | |
5.9.1 suidperl
Message-Id: <200403182117.i2ILHug513080@milan.maths.usyd.edu.au>
(which variables renamed as requested, plus tweaks to work on platforms
with no ST_NOEXEC)
p4raw-id: //depot/perl@22563
Diffstat (limited to 'perlapi.h')
| -rw-r--r-- | perlapi.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -250,6 +250,8 @@ END_EXTERN_C #define PL_expect (*Perl_Iexpect_ptr(aTHX)) #undef PL_fdpid #define PL_fdpid (*Perl_Ifdpid_ptr(aTHX)) +#undef PL_fdscript +#define PL_fdscript (*Perl_Ifdscript_ptr(aTHX)) #undef PL_filemode #define PL_filemode (*Perl_Ifilemode_ptr(aTHX)) #undef PL_forkprocess @@ -544,6 +546,8 @@ END_EXTERN_C #define PL_subline (*Perl_Isubline_ptr(aTHX)) #undef PL_subname #define PL_subname (*Perl_Isubname_ptr(aTHX)) +#undef PL_suidscript +#define PL_suidscript (*Perl_Isuidscript_ptr(aTHX)) #undef PL_sv_arenaroot #define PL_sv_arenaroot (*Perl_Isv_arenaroot_ptr(aTHX)) #undef PL_sv_count |