embed.fnc Fix function return type

Perl · Feb 1, 2022 · b4bc910 · b4bc910
1 parent a6a6eee
commit b4bc910
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/embed.fnc b/embed.fnc
@@ -3730,6 +3730,6 @@ XEop	|STRLEN*|dup_warnings	|NULLOK STRLEN* warnings
 Amd	|void	|CopFILEGV_set	|NN COP * c|NN GV * gv
 #endif
 
-Amd|char *const|phase_name|enum perl_phase
+Amd|const char *const|phase_name|enum perl_phase
 
 : ex: set ts=8 sts=4 sw=4 noet:
diff --git a/proto.h b/proto.h
@@ -2815,7 +2815,7 @@ PERL_CALLCONV int	perl_run(PerlInterpreter *my_perl);
 	assert(my_perl)
 PERL_CALLCONV Signal_t	Perl_perly_sighandler(int sig, Siginfo_t *info, void *uap, bool safe);
 #define PERL_ARGS_ASSERT_PERLY_SIGHANDLER
-/* PERL_CALLCONV char *const	phase_name(pTHX_ enum perl_phase); */
+/* PERL_CALLCONV const char *const	phase_name(pTHX_ enum perl_phase); */
 #define PERL_ARGS_ASSERT_PHASE_NAME
 PERL_CALLCONV void	Perl_pmop_dump(pTHX_ PMOP* pm);
 #define PERL_ARGS_ASSERT_PMOP_DUMP