In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e7368224f1884f08b01b3cedcf693510ca964712?hp=a1684041ccc6694387ef0636ae2c29f4bd7626c8>
- Log ----------------------------------------------------------------- commit e7368224f1884f08b01b3cedcf693510ca964712 Author: Matthew Horsfall (alh) <[email protected]> Date: Wed Jan 7 21:45:44 2015 -0500 Upgrade Devel::PPPort from 3.25 to 3.26 (to silence build warnings) Thanks to Dave M. for the patches. ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/Devel-PPPort/PPPort_pm.PL | 2 +- cpan/Devel-PPPort/parts/inc/misc | 4 ++++ cpan/Devel-PPPort/parts/ppptools.pl | 5 +++++ cpan/Devel-PPPort/soak | 2 +- 5 files changed, 12 insertions(+), 3 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 6a140cb..81a8edd 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -334,7 +334,7 @@ use File::Glob qw(:case); }, 'Devel::PPPort' => { - 'DISTRIBUTION' => 'WOLFSAGE/Devel-PPPort-3.25.tar.gz', + 'DISTRIBUTION' => 'WOLFSAGE/Devel-PPPort-3.26.tar.gz', # RJBS has asked MHX to have UPSTREAM be 'blead' # (i.e. move this from cpan/ to dist/) 'FILES' => q[cpan/Devel-PPPort], diff --git a/cpan/Devel-PPPort/PPPort_pm.PL b/cpan/Devel-PPPort/PPPort_pm.PL index d96593b..7eb0da7 100644 --- a/cpan/Devel-PPPort/PPPort_pm.PL +++ b/cpan/Devel-PPPort/PPPort_pm.PL @@ -539,7 +539,7 @@ package Devel::PPPort; use strict; use vars qw($VERSION $data); -$VERSION = '3.25'; +$VERSION = '3.26'; sub _init_data { diff --git a/cpan/Devel-PPPort/parts/inc/misc b/cpan/Devel-PPPort/parts/inc/misc index 8b698ac..e70f7f5 100644 --- a/cpan/Devel-PPPort/parts/inc/misc +++ b/cpan/Devel-PPPort/parts/inc/misc @@ -306,6 +306,8 @@ XS(XS_Devel__PPPort_dXSTARG) dXSARGS; dXSTARG; IV iv; + + PERL_UNUSED_VAR(cv); SP -= items; iv = SvIV(ST(0)) + 1; PUSHi(iv); @@ -319,6 +321,8 @@ XS(XS_Devel__PPPort_dAXMARK) dAXMARK; dITEMS; IV iv; + + PERL_UNUSED_VAR(cv); SP -= items; iv = SvIV(ST(0)) - 1; mPUSHi(iv); diff --git a/cpan/Devel-PPPort/parts/ppptools.pl b/cpan/Devel-PPPort/parts/ppptools.pl index c159d4c..6ea7516 100644 --- a/cpan/Devel-PPPort/parts/ppptools.pl +++ b/cpan/Devel-PPPort/parts/ppptools.pl @@ -319,6 +319,11 @@ sub parse_embed cond => ppcond(\@pps), }; } + elsif ($name =~ /^[^\W\d]\w*-E<gt>[^\W\d]\w*$/) { + # silenty ignore entries of the form + # PL_parser-E<gt>linestr + # which documents a struct entry rather than a function + } else { warn "mysterious name [$name] in $file, line $.\n"; } diff --git a/cpan/Devel-PPPort/soak b/cpan/Devel-PPPort/soak index 2f13412..9e8a244 100644 --- a/cpan/Devel-PPPort/soak +++ b/cpan/Devel-PPPort/soak @@ -27,7 +27,7 @@ use File::Find; use List::Util qw(max); use Config; -my $VERSION = '3.25'; +my $VERSION = '3.26'; $| = 1; my %OPT = ( -- Perl5 Master Repository
