From: Marcus Holland-Moritz Date: Sun, 14 Jun 2009 09:57:55 +0000 (+0200) Subject: Upgrade to Devel::PPPort 3.19 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=423174046424f87a68e7227cd8015f1926fede2d;p=p5sagit%2Fp5-mst-13.2.git Upgrade to Devel::PPPort 3.19 --- diff --git a/ext/Devel-PPPort/Changes b/ext/Devel-PPPort/Changes index 40deaba..fb8ba3a 100644 --- a/ext/Devel-PPPort/Changes +++ b/ext/Devel-PPPort/Changes @@ -1,3 +1,7 @@ +3.19 - 2009-06-14 + + * updated base/todo files + 3.18_01 - 2009-06-12 * fix CPAN #44614: Please support XSBODY diff --git a/ext/Devel-PPPort/PPPort_pm.PL b/ext/Devel-PPPort/PPPort_pm.PL index 30f1323..fcc8671 100644 --- a/ext/Devel-PPPort/PPPort_pm.PL +++ b/ext/Devel-PPPort/PPPort_pm.PL @@ -535,7 +535,7 @@ package Devel::PPPort; use strict; use vars qw($VERSION $data); -$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.18_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' }; +$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.19 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' }; sub _init_data { diff --git a/ext/Devel-PPPort/parts/apidoc.fnc b/ext/Devel-PPPort/parts/apidoc.fnc index 616a9b4..740e04f 100644 --- a/ext/Devel-PPPort/parts/apidoc.fnc +++ b/ext/Devel-PPPort/parts/apidoc.fnc @@ -209,6 +209,9 @@ Am|void|mXPUSHu|UV uv Am|void|Newxc|void* ptr|int nitems|type|cast Am|void|Newx|void* ptr|int nitems|type Am|void|Newxz|void* ptr|int nitems|type +Am|void|PERL_SYS_INIT3|int argc|char** argv|char** env +Am|void|PERL_SYS_INIT|int argc|char** argv +Am|void|PERL_SYS_TERM| Am|void|PoisonFree|void* dest|int nitems|type Am|void|PoisonNew|void* dest|int nitems|type Am|void|Poison|void* dest|int nitems|type diff --git a/ext/Devel-PPPort/parts/base/5006000 b/ext/Devel-PPPort/parts/base/5006000 index 47d788e..924da63 100644 --- a/ext/Devel-PPPort/parts/base/5006000 +++ b/ext/Devel-PPPort/parts/base/5006000 @@ -1,4 +1,5 @@ 5.006000 +PERL_SYS_INIT3 # U POPn # E PUSHn # E SvIOK_UV # U diff --git a/ext/Devel-PPPort/parts/base/5009003 b/ext/Devel-PPPort/parts/base/5009003 index 61ddf37..2306055 100644 --- a/ext/Devel-PPPort/parts/base/5009003 +++ b/ext/Devel-PPPort/parts/base/5009003 @@ -36,6 +36,9 @@ savepvs # U sortsv_flags # U sv_catpvs # U vverify # U +GvSVn # added by devel/scanprov +HvNAMELEN_get # added by devel/scanprov +HvNAME_get # added by devel/scanprov PERLIO_FUNCS_CAST # added by devel/scanprov PERLIO_FUNCS_DECL # added by devel/scanprov PERL_UNUSED_ARG # added by devel/scanprov diff --git a/ext/Devel-PPPort/parts/base/5009004 b/ext/Devel-PPPort/parts/base/5009004 index eadb7e2..2f88d2a 100644 --- a/ext/Devel-PPPort/parts/base/5009004 +++ b/ext/Devel-PPPort/parts/base/5009004 @@ -38,3 +38,5 @@ PERL_UNUSED_CONTEXT # added by devel/scanprov PERL_USE_GCC_BRACE_GROUPS # added by devel/scanprov SV_HAS_TRAILING_NUL # added by devel/scanprov SvVSTRING_mg # added by devel/scanprov +gv_fetchpvs # added by devel/scanprov +isGV_with_GP # added by devel/scanprov diff --git a/ext/Devel-PPPort/parts/base/5009005 b/ext/Devel-PPPort/parts/base/5009005 index 738c630..68ceff2 100644 --- a/ext/Devel-PPPort/parts/base/5009005 +++ b/ext/Devel-PPPort/parts/base/5009005 @@ -32,3 +32,4 @@ upg_version # E (Perl_upg_version) PERL_PV_ESCAPE_RE # added by devel/scanprov PL_parser # added by devel/scanprov SV_COW_SHARED_HASH_KEYS # added by devel/scanprov +SVfARG # added by devel/scanprov diff --git a/ext/Devel-PPPort/parts/base/5010000 b/ext/Devel-PPPort/parts/base/5010000 index be08fd8..922e614 100644 --- a/ext/Devel-PPPort/parts/base/5010000 +++ b/ext/Devel-PPPort/parts/base/5010000 @@ -7,3 +7,4 @@ sys_init3 # U sys_term # U PERL_PV_PRETTY_ELLIPSES # added by devel/scanprov PERL_PV_PRETTY_NOCLEAR # added by devel/scanprov +XSPROTO # added by devel/scanprov diff --git a/ext/Devel-PPPort/parts/base/5011000 b/ext/Devel-PPPort/parts/base/5011000 index ba064c5..fe92c15 100644 --- a/ext/Devel-PPPort/parts/base/5011000 +++ b/ext/Devel-PPPort/parts/base/5011000 @@ -1,6 +1,7 @@ 5.011000 HeUTF8 # U MULTICALL # E +PERL_SYS_TERM # E POP_MULTICALL # E PUSH_MULTICALL # E SvOOK_offset # U @@ -37,7 +38,10 @@ PERL_MAGIC_mutex # added by devel/scanprov PL_bufend # added by devel/scanprov PL_bufptr # added by devel/scanprov PL_copline # added by devel/scanprov +PL_error_count # added by devel/scanprov PL_expect # added by devel/scanprov +PL_in_my # added by devel/scanprov +PL_in_my_stash # added by devel/scanprov PL_lex_state # added by devel/scanprov PL_lex_stuff # added by devel/scanprov PL_linestr # added by devel/scanprov diff --git a/ext/Devel-PPPort/parts/embed.fnc b/ext/Devel-PPPort/parts/embed.fnc index cae666c..68f3817 100644 --- a/ext/Devel-PPPort/parts/embed.fnc +++ b/ext/Devel-PPPort/parts/embed.fnc @@ -533,7 +533,7 @@ Apd |UV |grok_oct |NN const char* start|NN STRLEN* len_p|NN I32* flags|NULLOK NV p |int |magic_clearenv |NN SV* sv|NN MAGIC* mg p |int |magic_clear_all_env|NN SV* sv|NN MAGIC* mg dp |int |magic_clearhint|NN SV* sv|NN MAGIC* mg -p |int |magic_clearisa |NN SV* sv|NN MAGIC* mg +p |int |magic_clearisa |NULLOK SV* sv|NN MAGIC* mg p |int |magic_clearpack|NN SV* sv|NN MAGIC* mg p |int |magic_clearsig |NN SV* sv|NN MAGIC* mg p |int |magic_existspack|NN SV* sv|NN const MAGIC* mg @@ -568,7 +568,7 @@ p |int |magic_setnkeys |NN SV* sv|NN MAGIC* mg p |int |magic_setpack |NN SV* sv|NN MAGIC* mg p |int |magic_setpos |NN SV* sv|NN MAGIC* mg p |int |magic_setregexp|NN SV* sv|NN MAGIC* mg -p |int |magic_setsig |NN SV* sv|NN MAGIC* mg +p |int |magic_setsig |NULLOK SV* sv|NN MAGIC* mg p |int |magic_setsubstr|NN SV* sv|NN MAGIC* mg p |int |magic_settaint |NN SV* sv|NN MAGIC* mg p |int |magic_setuvar |NN SV* sv|NN MAGIC* mg @@ -972,7 +972,6 @@ Apd |CV* |sv_2cv |NULLOK SV* sv|NN HV **const st|NN GV **const gvp \ Apd |IO* |sv_2io |NN SV *const sv #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) s |bool |glob_2number |NN GV* const gv -s |char* |glob_2pv |NN GV* const gv|NULLOK STRLEN * const len #endif Amb |IV |sv_2iv |NULLOK SV *sv Apd |IV |sv_2iv_flags |NULLOK SV *const sv|const I32 flags @@ -1278,8 +1277,6 @@ Apr |void |newMYSUB |I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK OP *attrs|NU #endif : Used in perly.y p |OP * |my_attrs |NN OP *o|NULLOK OP *attrs -: Only used in perl.c -p |void |boot_core_xsutils #if defined(USE_ITHREADS) ApR |PERL_CONTEXT*|cx_dup |NULLOK PERL_CONTEXT* cx|I32 ix|I32 max|NN CLONE_PARAMS* param ApR |PERL_SI*|si_dup |NULLOK PERL_SI* si|NN CLONE_PARAMS* param @@ -1293,6 +1290,10 @@ Ap |PerlIO*|fp_dup |NULLOK PerlIO *const fp|const char type|NN CLONE_PARAMS *co ApR |DIR* |dirp_dup |NULLOK DIR *const dp ApR |GP* |gp_dup |NULLOK GP *const gp|NN CLONE_PARAMS *const param ApR |MAGIC* |mg_dup |NULLOK MAGIC *mg|NN CLONE_PARAMS *const param +#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) +s |SV ** |sv_dup_inc_multiple|NN SV *const *source|NN SV **dest \ + |SSize_t items|NN CLONE_PARAMS *const param +#endif ApR |SV* |sv_dup |NULLOK const SV *const sstr|NN CLONE_PARAMS *const param Ap |void |rvpv_dup |NN SV *const dstr|NN const SV *const sstr|NN CLONE_PARAMS *const param Ap |yy_parser*|parser_dup |NULLOK const yy_parser *const proto|NN CLONE_PARAMS *const param @@ -1866,7 +1867,7 @@ Apn |int |my_socketpair |int family|int type|int protocol|int fd[2] Ap |int |my_dirfd |NULLOK DIR* dir #ifdef PERL_OLD_COPY_ON_WRITE : Used in pp_hot.c and regexec.c -pMXE |SV* |sv_setsv_cow |NN SV* dstr|NN SV* sstr +pMXE |SV* |sv_setsv_cow |NULLOK SV* dstr|NN SV* sstr #endif Aop |const char *|PerlIO_context_layers|NULLOK const char *mode diff --git a/ext/Devel-PPPort/parts/todo/5006000 b/ext/Devel-PPPort/parts/todo/5006000 index 86f24e2..4e4f83e 100644 --- a/ext/Devel-PPPort/parts/todo/5006000 +++ b/ext/Devel-PPPort/parts/todo/5006000 @@ -1,4 +1,5 @@ 5.006000 +PERL_SYS_INIT3 # U SvIOK_UV # U SvIOK_notUV # U SvIOK_only_UV # U diff --git a/ext/Devel-PPPort/parts/todo/5009002 b/ext/Devel-PPPort/parts/todo/5009002 index c6d8a1e..d00dcda 100644 --- a/ext/Devel-PPPort/parts/todo/5009002 +++ b/ext/Devel-PPPort/parts/todo/5009002 @@ -1,7 +1,6 @@ 5.009002 SvPVbyte_force # U find_rundefsvoffset # U -gv_fetchpvn_flags # U gv_fetchsv # U op_refcnt_lock # U op_refcnt_unlock # U diff --git a/ext/Devel-PPPort/parts/todo/5009003 b/ext/Devel-PPPort/parts/todo/5009003 index 7be9e07..6a69c9f 100644 --- a/ext/Devel-PPPort/parts/todo/5009003 +++ b/ext/Devel-PPPort/parts/todo/5009003 @@ -6,7 +6,6 @@ csighandler # E (Perl_csighandler) dMULTICALL # E doref # U gv_const_sv # U -gv_stashpvs # U hv_eiter_p # U hv_eiter_set # U hv_name_set # U diff --git a/ext/Devel-PPPort/parts/todo/5009005 b/ext/Devel-PPPort/parts/todo/5009005 index cf90cd8..8b84717 100644 --- a/ext/Devel-PPPort/parts/todo/5009005 +++ b/ext/Devel-PPPort/parts/todo/5009005 @@ -9,7 +9,6 @@ gv_fetchfile_flags # U mro_get_linear_isa # U mro_method_changed_in # U my_dirfd # U -newSV_type # U pregcomp # E (Perl_pregcomp) ptr_table_clear # U ptr_table_fetch # U diff --git a/ext/Devel-PPPort/parts/todo/5011000 b/ext/Devel-PPPort/parts/todo/5011000 index 0676f22..f58fa28 100644 --- a/ext/Devel-PPPort/parts/todo/5011000 +++ b/ext/Devel-PPPort/parts/todo/5011000 @@ -1,6 +1,7 @@ 5.011000 HeUTF8 # U MULTICALL # E +PERL_SYS_TERM # E POP_MULTICALL # E PUSH_MULTICALL # E SvOOK_offset # U diff --git a/ext/Devel-PPPort/soak b/ext/Devel-PPPort/soak index 5c9b484..1e98070 100644 --- a/ext/Devel-PPPort/soak +++ b/ext/Devel-PPPort/soak @@ -33,7 +33,7 @@ use File::Find; use List::Util qw(max); use Config; -my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.18_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' }; +my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.19 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' }; $| = 1; my %OPT = (