From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Thu, 4 Oct 2007 10:37:47 +0000 (+0000)
Subject: Upgrade to Devel::PPPort 3.13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c58e738a0202cd01343a506a6f46375f9382b043;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Devel::PPPort 3.13

p4raw-id: //depot/perl@32023
---

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index ba2cbe1..60ca7c4 100755
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -1,3 +1,9 @@
+3.13 - 2007-10-04
+
+    * fix cpan #29748: ppport.h problems with perl5.005_05
+      (spotted by Slaven Rezić)
+    * fix a compiler warning
+
 3.12 - 2007-09-22
 
     [released without changes]
diff --git a/ext/Devel/PPPort/PPPort_pm.PL b/ext/Devel/PPPort/PPPort_pm.PL
index bd09505..6701beb 100644
--- a/ext/Devel/PPPort/PPPort_pm.PL
+++ b/ext/Devel/PPPort/PPPort_pm.PL
@@ -508,7 +508,7 @@ package Devel::PPPort;
 use strict;
 use vars qw($VERSION $data);
 
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.12 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.13 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 sub _init_data
 {
diff --git a/ext/Devel/PPPort/parts/inc/pvs b/ext/Devel/PPPort/parts/inc/pvs
index 85ab27b..fe97588 100644
--- a/ext/Devel/PPPort/parts/inc/pvs
+++ b/ext/Devel/PPPort/parts/inc/pvs
@@ -1,8 +1,8 @@
 ################################################################################
 ##
-##  $Revision: 5 $
+##  $Revision: 6 $
 ##  $Author: mhx $
-##  $Date: 2007/07/18 14:19:44 +0200 $
+##  $Date: 2007/10/04 12:26:54 +0200 $
 ##
 ################################################################################
 ##
@@ -69,7 +69,7 @@ hv_stores(hv, sv)
 	SV *hv
 	SV *sv
 	PPCODE:
-		hv_stores((HV *) SvRV(hv), "hv_stores", SvREFCNT_inc_simple(sv));
+		(void) hv_stores((HV *) SvRV(hv), "hv_stores", SvREFCNT_inc_simple(sv));
 
 =tests plan => 7
 
diff --git a/ext/Devel/PPPort/parts/inc/variables b/ext/Devel/PPPort/parts/inc/variables
index 85dd180..6fd95d9 100644
--- a/ext/Devel/PPPort/parts/inc/variables
+++ b/ext/Devel/PPPort/parts/inc/variables
@@ -1,8 +1,8 @@
 ################################################################################
 ##
-##  $Revision: 12 $
+##  $Revision: 13 $
 ##  $Author: mhx $
-##  $Date: 2007/09/11 23:20:43 +0200 $
+##  $Date: 2007/10/04 10:21:28 +0200 $
 ##
 ################################################################################
 ##
@@ -83,7 +83,7 @@ __NEED_VAR__ U32 PL_signals = D_PPP_PERL_SIGNALS_INIT;
  * automatically be defined as the correct argument.
  */
 
-#if { VERSION <= 5.005_04 }
+#if { VERSION <= 5.005_05 }
 /* Replace: 1 */
 #  define PL_ppaddr                 ppaddr
 #  define PL_no_modify              no_modify
diff --git a/ext/Devel/PPPort/soak b/ext/Devel/PPPort/soak
index 60b0963..c1827e4 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.12 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.13 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 $| = 1;
 my %OPT = (