diff options
author | Tony Cook <tony@develop-help.com> | 2018-11-20 15:30:20 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2018-11-26 13:48:36 +1100 |
commit | 404395d24bc87890c7d978622296b9925a347aa0 (patch) | |
tree | 4827c735931451b9105ca32b90c28260fc93cc79 /proto.h | |
parent | 3a56a99d41d6fbc76d3de73c647f90cf10ea1992 (diff) | |
download | perl-404395d24bc87890c7d978622296b9925a347aa0.tar.gz |
(perl #133659) move argvout cleanup to a new function
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -4752,6 +4752,9 @@ STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I assert(stack_base) #endif #if defined(PERL_IN_DOIO_C) +STATIC bool S_argvout_final(pTHX_ MAGIC *mg, IO *io, bool not_implicit); +#define PERL_ARGS_ASSERT_ARGVOUT_FINAL \ + assert(mg); assert(io) STATIC void S_exec_failed(pTHX_ const char *cmd, int fd, int do_report); #define PERL_ARGS_ASSERT_EXEC_FAILED \ assert(cmd) |