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 /embed.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 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1439,7 +1439,7 @@ #define minus_v() S_minus_v(aTHX) #define my_exit_jump() S_my_exit_jump(aTHX) #define nuke_stacks() S_nuke_stacks(aTHX) -#define open_script(a,b,c,d) S_open_script(aTHX_ a,b,c,d) +#define open_script(a,b,c) S_open_script(aTHX_ a,b,c) #define parse_body(a,b) S_parse_body(aTHX_ a,b) #define run_body(a) S_run_body(aTHX_ a) #define usage() S_usage(aTHX) |