2 files changed, 19 insertions, 0 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 8c638acc41..742bc3df26 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2831,6 +2831,20 @@ S_save_lines(pTHX_ AV *array, SV *sv)
     }
 }
 
+/*
+=for apidoc docatch
+
+Check for the cases 0 or 3 of cur_env.je_ret, only used inside an eval context.
+
+0 is used as continue inside eval,
+
+3 is used for a die caught by an inner eval - continue inner loop
+
+See cop.h: je_mustcatch, when set at any runlevel to TRUE, means eval ops must
+establish a local jmpenv to handle exception traps.
+
+=cut
+*/
 STATIC OP *
 S_docatch(pTHX_ OP *o)
 {
diff --git a/util.c b/util.c
index ef0970e56c..89fea231a6 100644
--- a/util.c
+++ b/util.c
@@ -4182,6 +4182,11 @@ Perl_getcwd_sv(pTHX_ register SV *sv)
 
 #define VERSION_MAX 0x7FFFFFFF
 
+/*
+=for apidoc prescan_version
+
+=cut
+*/
 const char *
 Perl_prescan_version(pTHX_ const char *s, bool strict,
 		     const char **errstr,