Add perlintern.pod documentation docatch + prescan_version

docatch - perl run-time exception handling

diff --git a/pp_ctl.c b/pp_ctl.c
index 8c638ac..742bc3d 100644 (file)
--- 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 ef0970e..89fea23 100644 (file)
--- 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,