diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-02-23 15:44:33 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-02-27 11:31:48 +0100 |
| commit | 8d1138377104247a841c52023a0f6d0c9ea464a8 (patch) | |
| tree | 13baf8c2209c04bb561a511609af17bab0cbfa09 /proto.h | |
| parent | 286a76ab020bbce3bb02a3c2490a7a01ad781c47 (diff) | |
| download | perl-8d1138377104247a841c52023a0f6d0c9ea464a8.tar.gz | |
In perl.c, change S_open_script() to return rsfp.
Previously it was being passed &rsfp as a parameter, because it was
returning another value, fdscript. However, the return value has been
ignored since commit cc69b689ee7c2745 removed suidperl in January 2009.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -5925,12 +5925,11 @@ STATIC void S_my_exit_jump(pTHX) __attribute__noreturn__; STATIC void S_nuke_stacks(pTHX); -STATIC int S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript, PerlIO **rsfpp) +STATIC PerlIO * S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript) __attribute__nonnull__(pTHX_1) - __attribute__nonnull__(pTHX_3) - __attribute__nonnull__(pTHX_4); + __attribute__nonnull__(pTHX_3); #define PERL_ARGS_ASSERT_OPEN_SCRIPT \ - assert(scriptname); assert(suidscript); assert(rsfpp) + assert(scriptname); assert(suidscript) STATIC void* S_parse_body(pTHX_ char **env, XSINIT_t xsinit); STATIC void S_run_body(pTHX_ I32 oldscope) |