diff options
| author | Nicholas Clark <nick@ccl4.org> | 2014-03-02 07:38:00 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2014-03-19 10:57:52 +0100 |
| commit | a2b41d5ca668b3be2860093f464392277e1d0034 (patch) | |
| tree | f265d7bfcd77d643052a6fb7ce58153c1b042e45 /proto.h | |
| parent | b4464d55c8c3facb333bef167fb547bff86d55ae (diff) | |
| download | perl-a2b41d5ca668b3be2860093f464392277e1d0034.tar.gz | |
Extract the setup code of Perl_do_openn() into S_openn_setup().
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -5712,6 +5712,16 @@ STATIC void S_exec_failed(pTHX_ const char *cmd, int fd, int do_report) STATIC bool S_ingroup(pTHX_ Gid_t testgid, bool effective) __attribute__warn_unused_result__; +STATIC IO * S_openn_setup(pTHX_ GV *gv, char *mode, PerlIO **saveifp, PerlIO **saveofp, int *savefd, char *savetype) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_3) + __attribute__nonnull__(pTHX_4) + __attribute__nonnull__(pTHX_5) + __attribute__nonnull__(pTHX_6); +#define PERL_ARGS_ASSERT_OPENN_SETUP \ + assert(gv); assert(mode); assert(saveifp); assert(saveofp); assert(savefd); assert(savetype) + #endif #if defined(PERL_IN_DOOP_C) STATIC I32 S_do_trans_complex(pTHX_ SV * const sv) |