diff options
author | Sawyer X <xsawyerx@cpan.org> | 2022-03-19 13:57:55 +0100 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2022-03-19 17:41:30 +0100 |
commit | 09b064e1335d8f466010f17f50ad8210ef4a351d (patch) | |
tree | f29d314d24b2d1ddd779efbb6a3dc70afa6f809e | |
parent | 0516911471d5e8d80630da876339e19e582a4961 (diff) | |
download | perl-09b064e1335d8f466010f17f50ad8210ef4a351d.tar.gz |
Update Devel::PPPort to 3.68
-rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
-rw-r--r-- | dist/Devel-PPPort/Changes | 11 | ||||
-rw-r--r-- | dist/Devel-PPPort/PPPort_pm.PL | 2 | ||||
-rw-r--r-- | dist/Devel-PPPort/parts/inc/Sv_set | 12 | ||||
-rw-r--r-- | dist/Devel-PPPort/parts/inc/misc | 6 | ||||
-rw-r--r-- | dist/Devel-PPPort/parts/inc/version | 2 |
6 files changed, 22 insertions, 13 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index e914484240..95428ff2b9 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -344,7 +344,7 @@ use File::Glob qw(:case); }, 'Devel::PPPort' => { - 'DISTRIBUTION' => 'ATOOMIC/Devel-PPPort-3.64.tar.gz', + 'DISTRIBUTION' => 'ATOOMIC/Devel-PPPort-3.68.tar.gz', 'FILES' => q[dist/Devel-PPPort], 'EXCLUDED' => [ 'PPPort.pm', # we use PPPort_pm.PL instead diff --git a/dist/Devel-PPPort/Changes b/dist/Devel-PPPort/Changes index e8cfb04e96..bac8e31924 100644 --- a/dist/Devel-PPPort/Changes +++ b/dist/Devel-PPPort/Changes @@ -1,11 +1,16 @@ Revision history for Devel-PPPort +3.68 - 2022-03-18 + + * fix newSVsv_flags: rename variable to fix C++ compilation issue + * Update dNOOP definition for Perl < 5.27.7 + 3.67 - 2022-03-08 * fix utf8.t with recent development versions of Perl * utf8_to_uvchr_buf: Workaround bugs in Perl (BBC) - - v5.35.9 was returning an incorrect value - - fix dereference empty string + * v5.35.9 was returning an incorrect value + * fix dereference empty string 3.66 - 2022-03-02 @@ -32,7 +37,7 @@ Revision history for Devel-PPPort * Backport NOT_REACHED * Backport G_LIST * various internal changes - + 3.62 - 2020-10-16 * Restore missing PPPort.pm * Fix metaCPAN indexing diff --git a/dist/Devel-PPPort/PPPort_pm.PL b/dist/Devel-PPPort/PPPort_pm.PL index 8dc2e281f1..cfbfaeb8fa 100644 --- a/dist/Devel-PPPort/PPPort_pm.PL +++ b/dist/Devel-PPPort/PPPort_pm.PL @@ -756,7 +756,7 @@ package Devel::PPPort; use strict; use vars qw($VERSION $data); -$VERSION = '3.67'; +$VERSION = '3.68'; sub _init_data { diff --git a/dist/Devel-PPPort/parts/inc/Sv_set b/dist/Devel-PPPort/parts/inc/Sv_set index dd91f51f09..cb5cd77e36 100644 --- a/dist/Devel-PPPort/parts/inc/Sv_set +++ b/dist/Devel-PPPort/parts/inc/Sv_set @@ -107,17 +107,17 @@ __UNDEFINED__ sv_setsv_flags(dstr, sstr, flags) # if defined(PERL_USE_GCC_BRACE_GROUPS) # define newSVsv_flags(sv, flags) \ ({ \ - SV *new = newSV(0); \ - sv_setsv_flags(new, (sv), (flags)); \ - new; \ + SV *n= newSV(0); \ + sv_setsv_flags(n, (sv), (flags)); \ + n; \ }) # else PERL_STATIC_INLINE SV* D_PPP_newSVsv_flags(SV *const old, I32 flags) { dTHX; - SV *new = newSV(0); - sv_setsv_flags(new, old, flags); - return new; + SV *n= newSV(0); + sv_setsv_flags(n, old, flags); + return n; } # define newSVsv_flags(sv, flags) D_PPP_newSVsv_flags(sv, flags) # endif diff --git a/dist/Devel-PPPort/parts/inc/misc b/dist/Devel-PPPort/parts/inc/misc index 72437be518..72b7e724c6 100644 --- a/dist/Devel-PPPort/parts/inc/misc +++ b/dist/Devel-PPPort/parts/inc/misc @@ -227,7 +227,11 @@ __UNDEFINED__ SvRXOK(sv) (!!SvRX(sv)) #endif __UNDEFINED__ NOOP /*EMPTY*/(void)0 -__UNDEFINED__ dNOOP extern int /*@unused@*/ Perl___notused PERL_UNUSED_DECL + +#if { VERSION < 5.6.1 } && { VERSION < 5.27.7 } +#undef dNOOP +__UNDEFINED__ dNOOP struct Perl___notused_struct +#endif #ifndef NVTYPE # if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) diff --git a/dist/Devel-PPPort/parts/inc/version b/dist/Devel-PPPort/parts/inc/version index 4e677b23e0..18546654cf 100644 --- a/dist/Devel-PPPort/parts/inc/version +++ b/dist/Devel-PPPort/parts/inc/version @@ -26,7 +26,7 @@ PERL_BCDVERSION =implementation -#define D_PPP_RELEASE_DATE 1646697600 /* 2022-03-08 */ +#define D_PPP_RELEASE_DATE 1647561600 /* 2022-03-18 */ #if ! defined(PERL_REVISION) && ! defined(PERL_VERSION_MAJOR) # if ! defined(__PATCHLEVEL_H_INCLUDED__) \ |