2 files changed, 14 insertions, 1 deletions
diff --git a/embed.fnc b/embed.fnc
index 1646caa43b..5dae535c26 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1407,7 +1407,7 @@ Cp	|const char*	|moreswitches	|NN const char* s
 Apd	|NV	|my_atof	|NN const char *s
 ATdpR	|NV	|my_strtod	|NN const char * const s|NULLOK char ** e
 Aprd	|void	|my_exit	|U32 status
-Apr	|void	|my_failure_exit
+Apdr	|void	|my_failure_exit
 Cpd	|I32	|my_fflush_all
 CTpd	|Pid_t	|my_fork
 CTp	|void	|atfork_lock
diff --git a/perl.c b/perl.c
index 254577e91d..b5fe79e8b8 100644
--- a/perl.c
+++ b/perl.c
@@ -5227,6 +5227,19 @@ Perl_my_exit(pTHX_ U32 status)
     my_exit_jump();
 }
 
+/*
+=for apidoc my_failure_exit
+
+Exit the running Perl process with an error.
+
+On non-VMS platforms, this is essentially equivalen to L</C<my_exit>>, using
+C<errno>, but forces an en error code of 255 if C<errno> is 0.
+
+On VMS, it takes care to set the expected exit error return variables.
+
+=cut
+*/
+
 void
 Perl_my_failure_exit(pTHX)
 {