* perl_parse() has had the chance to set up PL_tainting. */
#ifndef EARLY_INIT3
-# define EARLY_INIT3(argvp,argcp,envp) \
+# define EARLY_INIT3(argcp,argvp,envp) \
STMT_START { \
PL_earlytaint = doing_taint(argcp, argvp, envp); \
} STMT_END;
#endif
#ifndef EARLY_INIT2
-# define EARLY_INIT2(argvp,argcp) \
+# define EARLY_INIT2(argcp,argvp) \
STMT_START { \
PL_earlytaint = doing_taint(argcp, argvp, 0); \
} STMT_END;