diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-03-24 09:14:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-03-24 09:14:21 +0000 |
| commit | c5cccb1737e4e86c4c20959d2b4cbc82c412de77 (patch) | |
| tree | 3c84ed89be527e3b21bc85e18d0689fab9dc3b33 /perl.c | |
| parent | 9df442c23deb1b1ba2f163eb54deeb4fe82ea80c (diff) | |
| download | perl-c5cccb1737e4e86c4c20959d2b4cbc82c412de77.tar.gz | |
Tidy up function prototypes in the light of suidpatch
p4raw-id: //depot/perl@22572
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -1188,8 +1188,6 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) register SV *sv; register char *s; char *cddir = Nullch; -/* PSz 18 Feb 04 fdscript now global, keep from confusion */ - int dummy_fdscript = -1; PL_fdscript = -1; PL_suidscript = -1; @@ -1499,9 +1497,9 @@ print \" \\@INC:\\n @INC\\n\";"); init_perllib(); - open_script(scriptname,dosearch,sv,&dummy_fdscript); + open_script(scriptname,dosearch,sv); - validate_suid(validarg, scriptname,dummy_fdscript); + validate_suid(validarg, scriptname); #ifndef PERL_MICRO #if defined(SIGCHLD) || defined(SIGCLD) @@ -2934,7 +2932,7 @@ S_init_main_stash(pTHX) /* PSz 18 Nov 03 fdscript now global but do not change prototype */ STATIC void -S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv, int *dummy_fdscript) +S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv) { #ifndef IAMSUID char *quote; @@ -3232,9 +3230,8 @@ S_fd_on_nosuid_fs(pTHX_ int fd) } #endif /* IAMSUID */ -/* PSz 18 Nov 03 fdscript now global but do not change prototype */ STATIC void -S_validate_suid(pTHX_ char *validarg, char *scriptname, int dummy_fdscript) +S_validate_suid(pTHX_ char *validarg, char *scriptname) { #ifdef IAMSUID /* int which; */ |