From: Reini Urban <rurban@x-ray.at>
Date: Thu, 4 Mar 2010 11:53:51 +0000 (+0100)
Subject: Add perlintern.pod documentation docatch + prescan_version
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=22f163041726650629bf28dcd039ad3970b34019;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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,