PERL_CALLCONV void Perl_call_list(pTHX_ I32 oldscope, AV* av_list)
__attribute__nonnull__(pTHX_2);
-PERL_CALLCONV bool Perl_cando(pTHX_ Mode_t mode, Uid_t effective, const Stat_t* statbufp)
+PERL_CALLCONV bool Perl_cando(pTHX_ Mode_t mode, bool effective, const Stat_t* statbufp)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_3);
PERL_CALLCONV bool Perl_do_eof(pTHX_ GV* gv)
__attribute__nonnull__(pTHX_1);
+
+#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
/* PERL_CALLCONV bool Perl_do_exec(pTHX_ const char* cmd)
__attribute__nonnull__(pTHX_1); */
+#else
+PERL_CALLCONV bool Perl_do_exec(pTHX_ const char* cmd)
+ __attribute__nonnull__(pTHX_1);
+
+#endif
+
#if defined(WIN32) || defined(__SYMBIAN32__)
PERL_CALLCONV int Perl_do_aspawn(pTHX_ SV* really, SV** mark, SV** sp)
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_5);
-PERL_CALLCONV bool Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective)
+PERL_CALLCONV bool Perl_ingroup(pTHX_ Gid_t testgid, bool effective)
__attribute__warn_unused_result__;
PERL_CALLCONV void Perl_init_argv_symbols(pTHX_ int argc, char **argv)
#endif
+PERL_CALLCONV void Perl_my_clearenv(pTHX);
+
END_EXTERN_C
/*
* ex: set ts=8 sts=4 sw=4 noet: