diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-18 14:27:36 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-18 14:27:36 +0000 |
| commit | ec2019add1c7fdb16a67372a1ed14c16660c3cea (patch) | |
| tree | d096bdaeb51d5d88c069fc6aec42b8789e8ff127 /embed.fnc | |
| parent | 81c61bd5995819c1cff6a438f28f35ffeb9642eb (diff) | |
| download | perl-ec2019add1c7fdb16a67372a1ed14c16660c3cea.tar.gz | |
Eliminate all PERL_UNUSED_ARG()s in S_validate_suid() by changing its
prototype depending on the compile time options. In turn, this finds
things that are unused in its callers.
p4raw-id: //depot/perl@33000
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 17 |
1 files changed, 15 insertions, 2 deletions
@@ -1277,10 +1277,23 @@ s |void |nuke_stacks s |int |open_script |NN const char *scriptname|bool dosearch \ |NN int *suidscript|NN PerlIO **rsfpp s |void |usage |NN const char *name -s |void |validate_suid |NN const char *validarg \ - |NN const char *scriptname|int fdscript \ +#ifdef DOSUID +# ifdef IAMSUID +so |void |validate_suid |NN const char *validarg \ + |int fdscript \ |int suidscript|NN SV* linestr_sv \ |NN PerlIO *rsfp +# else +so |void |validate_suid |NN const char *validarg \ + |NN const char *scriptname|int fdscript \ + |NN SV* linestr_sv \ + |NN PerlIO *rsfp +# endif +#else +# ifndef SETUID_SCRIPTS_ARE_SECURE_NOW +so |void |validate_suid |NN PerlIO *rsfp +# endif +#endif # if defined(IAMSUID) s |int |fd_on_nosuid_fs|int fd |