In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/256dda502eca71f547885c73901e8e8b42d47174?hp=b870557cf82f1e7b8262b798bd06520f5123258c>
- Log -----------------------------------------------------------------
commit 256dda502eca71f547885c73901e8e8b42d47174
Author: Tony Cook <t...@develop-help.com>
Date: Mon Jul 8 15:39:26 2019 +1000
make apidoc error reporting a little more explicit
commit 131e4949745cb53db2d0dec8d7649c20ea51f0b8
Author: Tony Cook <t...@develop-help.com>
Date: Thu Jul 4 11:12:20 2019 +1000
(perl #120841) document some errno macros for internal use
commit 40bec302ee56bcc8f5c96ebd2c336d1194e713a6
Author: Tony Cook <t...@develop-help.com>
Date: Thu Jul 4 10:39:19 2019 +1000
(perl #120841) document ERRSV and CLEAR_ERRSV()
-----------------------------------------------------------------------
Summary of changes:
autodoc.pl | 8 ++++++++
perl.h | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 56 insertions(+)
diff --git a/autodoc.pl b/autodoc.pl
index 919da5e063..c72861accb 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -111,6 +111,14 @@ HDR_DOC:
my $proto = $proto_in_file;
$proto = "||$proto" unless $proto =~ /\|/;
my($flags, $ret, $name, @args) = split /\s*\|\s*/, $proto;
+ $name or die <<EOS;
+Bad apidoc at $file line $.:
+ $in
+Expected:
+ =for apidoc flags|returntype|name|arg|arg|...
+ =for apidoc flags|returntype|name
+ =for apidoc name
+EOS
warn ("'$name' not \\w+ in '$proto_in_file' in $file")
if $flags !~ /N/ && $name !~ / ^ [_[:alpha:]] \w* $ /x;
my $docs = "";
diff --git a/perl.h b/perl.h
index f5f18ff4f7..37b2637ca1 100644
--- a/perl.h
+++ b/perl.h
@@ -1264,6 +1264,38 @@ EXTERN_C char *crypt(const char *, const char *);
EXTERN_C char *crypt(const char *, const char *);
#endif
+/*
+=head1 Errno
+
+=for apidoc m|void|SETERRNO|int errcode|int vmserrcode
+
+Set C<errno>, and on VMS set C<vaxc$errno>.
+
+=for apidoc mn|void|dSAVEDERRNO
+
+Declare variables needed to save C<errno> and any operating system
+specific error number.
+
+=for apidoc mn|void|dSAVE_ERRNO
+
+Declare variables needed to save C<errno> and any operating system
+specific error number, and save them for optional later restoration
+by C<RESTORE_ERRNO>.
+
+=for apidoc mn|void|SAVE_ERRNO
+
+Save C<errno> and any operating system specific error number for
+optional later restoration by C<RESTORE_ERRNO>. Requires
+C<dSAVEDERRNO> or C<dSAVE_ERRNO> in scope.
+
+=for apidoc mn|void|RESTORE_ERRNO
+
+Restore C<errno> and any operating system specific error number that
+was saved by C<dSAVE_ERRNO> or C<RESTORE_ERRNO>.
+
+=cut
+*/
+
#ifdef SETERRNO
# undef SETERRNO /* SOCKS might have defined this */
#endif
@@ -1335,6 +1367,22 @@ EXTERN_C char *crypt(const char *, const char *);
# define RESTORE_ERRNO (errno = saved_errno)
#endif
+/*
+=head1 Warning and Dieing
+
+=for apidoc Amn|SV *|ERRSV
+
+Returns the SV for C<$@>, creating it if needed.
+
+=for apidoc Am|void|CLEAR_ERRSV
+
+Clear the contents of C<$@>, setting it to the empty string.
+
+This replaces any read-only SV with a fresh SV and removes any magic.
+
+=cut
+*/
+
#define ERRSV GvSVn(PL_errgv)
/* contains inlined gv_add_by_type */
--
Perl5 Master Repository
