In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/52de5f36afe1d56995f76f26f15cf191e9cf699a?hp=19fc2965b60669d7bc25548edb32e3cdd86a68de>
- Log ----------------------------------------------------------------- commit 52de5f36afe1d56995f76f26f15cf191e9cf699a Author: Karl Williamson <[email protected]> Date: Tue May 10 18:35:54 2016 -0600 embed.fnc: Indicate ninstr(), rninstr() have documentation M embed.fnc commit 2d825fd950f5c0e0ba60399d56c61b94d3a7fdd1 Author: Karl Williamson <[email protected]> Date: Tue May 10 17:51:58 2016 -0600 mathoms.c: Fix prototype This would probably have refused to compile if anyone were actually using this function in a threaded build. M mathoms.c commit 556343f1c9b06592ba8ef8f78070d40aab8d9276 Author: Karl Williamson <[email protected]> Date: Tue May 10 17:34:25 2016 -0600 regen/embed.pl: Verify flags field of embed.fnc Make sure that the specified flags are legal. M regen/embed.pl commit 1be7e5f17f14e132e60e55c8cf6eb2a1704da810 Author: Karl Williamson <[email protected]> Date: Tue May 10 17:32:36 2016 -0600 embed.fnc: Remove improper flag character This was introduced by efaf36747029c85b4d8825318cb4d485a0bb350e; apparently a typo. M embed.fnc commit 26acb4d0f1686b3ab50ae999f965a931d3249d57 Author: Karl Williamson <[email protected]> Date: Thu May 12 09:11:00 2016 -0600 POSIX.pod: Fix grammar M ext/POSIX/lib/POSIX.pod commit dc09fdd957016ca0d595c25977472e49c6ac4457 Author: Karl Williamson <[email protected]> Date: Mon May 9 11:51:36 2016 -0600 README.freebsd: Add some L<>, C<> to pod M README.freebsd ----------------------------------------------------------------------- Summary of changes: README.freebsd | 8 ++++---- embed.fnc | 6 +++--- ext/POSIX/lib/POSIX.pod | 2 +- mathoms.c | 5 ++--- regen/embed.pl | 3 +++ 5 files changed, 13 insertions(+), 11 deletions(-) diff --git a/README.freebsd b/README.freebsd index 4bfe974..1b290ce 100644 --- a/README.freebsd +++ b/README.freebsd @@ -20,21 +20,21 @@ reading large directories. A patch for FreeBSD libc is available (see http://www.freebsd.org/cgi/query-pr.cgi?pr=misc/30631 ) which has been integrated into FreeBSD 4.6. -=head2 $^X doesn't always contain a full path in FreeBSD +=head2 C<$^X> doesn't always contain a full path in FreeBSD perl sets C<$^X> where possible to a full path by asking the operating system. On FreeBSD the full path of the perl interpreter is found by using C<sysctl> with C<KERN_PROC_PATHNAME> if that is supported, else by reading the symlink F</proc/curproc/file>. FreeBSD 7 and earlier has a bug where either approach sometimes returns an incorrect value -(see http://www.freebsd.org/cgi/query-pr.cgi?pr=35703 ). +(see L<http://www.freebsd.org/cgi/query-pr.cgi?pr=35703> ). In these cases perl will fall back to the old behaviour of using C's -argv[0] value for C<$^X>. +C<argv[0]> value for C<$^X>. =head1 AUTHOR Nicholas Clark <[email protected]>, collating wisdom supplied by Slaven Rezic and Tim Bunce. -Please report any errors, updates, or suggestions to F<[email protected]>. +Please report any errors, updates, or suggestions to L<mailto:[email protected]>. diff --git a/embed.fnc b/embed.fnc index 7f60ae1..17e5b8a 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1077,7 +1077,7 @@ Apd |SV* |vstringify |NN SV *vs Apd |int |vcmp |NN SV *lhv|NN SV *rhv : Used in pp_hot.c and pp_sys.c p |PerlIO*|nextargv |NN GV* gv|bool nomagicopen -AnpP |char* |ninstr |NN const char* big|NN const char* bigend \ +AdnpP |char* |ninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend Apd |void |op_free |NULLOK OP* arg Mp |OP* |op_unscope |NULLOK OP* o @@ -1227,7 +1227,7 @@ EXp |I32|reg_numbered_buff_length|NN REGEXP * const rx|NN const SV * const sv|co EXp |SV*|reg_qr_package|NN REGEXP * const rx Anp |void |repeatcpy |NN char* to|NN const char* from|I32 len|IV count -AnpP |char* |rninstr |NN const char* big|NN const char* bigend \ +AdnpP |char* |rninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend Ap |Sighandler_t|rsignal |int i|Sighandler_t t : Used in pp_sys.c @@ -1939,7 +1939,7 @@ sM |void |clear_placeholders |NN HV *hv|U32 items #if defined(PERL_IN_MG_C) s |void |save_magic_flags|I32 mgs_ix|NN SV *sv|U32 flags --s |int |magic_methpack |NN SV *sv|NN const MAGIC *mg|NN SV *meth +s |int |magic_methpack |NN SV *sv|NN const MAGIC *mg|NN SV *meth s |SV* |magic_methcall1|NN SV *sv|NN const MAGIC *mg \ |NN SV *meth|U32 flags \ |int n|NULLOK SV *val diff --git a/ext/POSIX/lib/POSIX.pod b/ext/POSIX/lib/POSIX.pod index e903acc..2993421 100644 --- a/ext/POSIX/lib/POSIX.pod +++ b/ext/POSIX/lib/POSIX.pod @@ -1951,7 +1951,7 @@ Not implemented. Use method C<IO::File::new_tmpfile()> instead, or see L<File:: For security reasons, which are probably detailed in your system's documentation for the C library C<tmpnam()> function, this interface -is no more available; instead use L<File::Temp>. +is no longer available; instead use L<File::Temp>. =item C<tolower> diff --git a/mathoms.c b/mathoms.c index d530cc0..447009d 100644 --- a/mathoms.c +++ b/mathoms.c @@ -86,7 +86,7 @@ PERL_CALLCONV void Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how); PERL_CALLCONV bool Perl_do_open(pTHX_ GV *gv, const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp); PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV *really, SV **mark, SV **sp); PERL_CALLCONV U8 * Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv); -PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep); +PERL_CALLCONV bool Perl_is_utf8_string_loc(const U8 *s, STRLEN len, const U8 **ep); PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv); PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len); PERL_CALLCONV void Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len); @@ -730,10 +730,9 @@ Perl_init_i18nl14n(pTHX_ int printwarn) } bool -Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep) +Perl_is_utf8_string_loc(const U8 *s, STRLEN len, const U8 **ep) { PERL_ARGS_ASSERT_IS_UTF8_STRING_LOC; - PERL_UNUSED_CONTEXT; return is_utf8_string_loclen(s, len, ep, 0); } diff --git a/regen/embed.pl b/regen/embed.pl index 3db9c41..4bfb443 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -75,6 +75,9 @@ my ($embed, $core, $ext, $api) = setup_embed(); } my ($flags,$retval,$plain_func,@args) = @$_; + if ($flags =~ / ( [^AabDdEfiMmnOoPpRrsUXx] ) /x) { + warn "flag $1 is not legal (for function $plain_func)"; + } my @nonnull; my $has_context = ( $flags !~ /n/ ); my $never_returns = ( $flags =~ /r/ ); -- Perl5 Master Repository
