Upgrade to Devel::PPPort 3.19

diff --git a/ext/Devel-PPPort/Changes b/ext/Devel-PPPort/Changes
index 40deaba..fb8ba3a 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 = (