Upgrade to Devel::PPPort 3.10_02

p4raw-id: //depot/perl@29437

diff --git a/MANIFEST b/MANIFEST
index 79e171d..2431137 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -345,6 +345,7 @@ ext/Devel/PPPort/parts/base/5009001 Devel::PPPort baseline todo file
 ext/Devel/PPPort/parts/base/5009002    Devel::PPPort baseline todo file
 ext/Devel/PPPort/parts/base/5009003    Devel::PPPort baseline todo file
 ext/Devel/PPPort/parts/base/5009004    Devel::PPPort baseline todo file
+ext/Devel/PPPort/parts/base/5009005    Devel::PPPort baseline todo file
 ext/Devel/PPPort/parts/embed.fnc       Devel::PPPort Perl API listing
 ext/Devel/PPPort/parts/inc/call        Devel::PPPort include
 ext/Devel/PPPort/parts/inc/cop Devel::PPPort include
@@ -408,6 +409,7 @@ ext/Devel/PPPort/parts/todo/5009001 Devel::PPPort todo file
 ext/Devel/PPPort/parts/todo/5009002    Devel::PPPort todo file
 ext/Devel/PPPort/parts/todo/5009003    Devel::PPPort todo file
 ext/Devel/PPPort/parts/todo/5009004    Devel::PPPort todo file
+ext/Devel/PPPort/parts/todo/5009005    Devel::PPPort todo file
 ext/Devel/PPPort/ppport_h.PL   Devel::PPPort ppport.h writer
 ext/Devel/PPPort/PPPort_pm.PL  Devel::PPPort PPPort.pm writer
 ext/Devel/PPPort/PPPort.xs     Devel::PPPort dummy PPPort.xs

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index 6e0964e..d04f72c 100755 (executable)
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -1,3 +1,7 @@
+3.10_02 - 2006-12-02
+
+    * add two missing files
+
 3.10_01 - 2006-12-02
 
     * fix cpan #21239: Signals safe in Perl 5.8.0

diff --git a/ext/Devel/PPPort/PPPort_pm.PL b/ext/Devel/PPPort/PPPort_pm.PL
index 9e1eb7a..67a80f0 100644 (file)
--- a/ext/Devel/PPPort/PPPort_pm.PL
+++ b/ext/Devel/PPPort/PPPort_pm.PL
@@ -502,7 +502,7 @@ package Devel::PPPort;
 use strict;
 use vars qw($VERSION $data);
 
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.10_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.10_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 sub _init_data
 {

diff --git a/ext/Devel/PPPort/parts/base/5009005 b/ext/Devel/PPPort/parts/base/5009005
new file mode 100644 (file)
index 0000000..e2876ae
--- /dev/null
+++ b/ext/Devel/PPPort/parts/base/5009005
@@ -0,0 +1,9 @@
+5.009005
+MULTICALL                      # E
+POP_MULTICALL                  # E
+PUSH_MULTICALL                 # E
+hv_assert                      # U
+pad_sv                         # U
+stashpv_hvname_match           # U
+PERL_BCDVERSION                # added by devel/scanprov
+PERL_MAGIC_glob                # added by devel/scanprov

diff --git a/ext/Devel/PPPort/parts/todo/5009005 b/ext/Devel/PPPort/parts/todo/5009005
new file mode 100644 (file)
index 0000000..5f1a0a2
--- /dev/null
+++ b/ext/Devel/PPPort/parts/todo/5009005
@@ -0,0 +1,7 @@
+5.009005
+MULTICALL                      # E
+POP_MULTICALL                  # E
+PUSH_MULTICALL                 # E
+hv_assert                      # U
+pad_sv                         # U
+stashpv_hvname_match           # U

diff --git a/ext/Devel/PPPort/soak b/ext/Devel/PPPort/soak
index 0ba1985..2be786f 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.10_01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.10_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 $| = 1;
 my %OPT = (