diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-03 20:10:07 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-03 20:10:07 +0000 |
| commit | cdd8118e49c05b43bd2785d9a269d538a4e8fe8c (patch) | |
| tree | 6e86ada5031bbb46f241f733353a59057d1e0af0 /embed.h | |
| parent | d0bafe7e795ead5473180e3aa70c1cfa0938c0fd (diff) | |
| download | perl-cdd8118e49c05b43bd2785d9a269d538a4e8fe8c.tar.gz | |
Eliminating PL_suidscript is more tricky, and requires changing the
prototype of Perl_moreswitches.
p4raw-id: //depot/perl@27070
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -2530,7 +2530,7 @@ #define mod(a,b) Perl_mod(aTHX_ a,b) #define mode_from_discipline(a) Perl_mode_from_discipline(aTHX_ a) #endif -#define moreswitches(a) Perl_moreswitches(aTHX_ a) +#define moreswitches(a,b) Perl_moreswitches(aTHX_ a,b) #ifdef PERL_CORE #define my(a) Perl_my(aTHX_ a) #endif @@ -3188,8 +3188,8 @@ #endif #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE -#define find_beginning() S_find_beginning(aTHX) -#define forbid_setid(a) S_forbid_setid(aTHX_ a) +#define find_beginning(a) S_find_beginning(aTHX_ a) +#define forbid_setid(a,b) S_forbid_setid(aTHX_ a,b) #define incpush(a,b,c,d,e) S_incpush(aTHX_ a,b,c,d,e) #define init_interp() S_init_interp(aTHX) #define init_ids() S_init_ids(aTHX) @@ -3200,9 +3200,9 @@ #define init_predump_symbols() S_init_predump_symbols(aTHX) #define my_exit_jump() S_my_exit_jump(aTHX) #define nuke_stacks() S_nuke_stacks(aTHX) -#define open_script(a,b,c) S_open_script(aTHX_ a,b,c) +#define open_script(a,b,c,d) S_open_script(aTHX_ a,b,c,d) #define usage(a) S_usage(aTHX_ a) -#define validate_suid(a,b,c) S_validate_suid(aTHX_ a,b,c) +#define validate_suid(a,b,c,d) S_validate_suid(aTHX_ a,b,c,d) #endif # if defined(IAMSUID) #ifdef PERL_CORE |