In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/676d803378b16a66e7f31c55aaf8581338b039fa?hp=04d3d25b9ee16b497deab0004dec131e4a4ebd9b>
- Log ----------------------------------------------------------------- commit 676d803378b16a66e7f31c55aaf8581338b039fa Author: Nicolas R <atoo...@cpan.org> Date: Tue Oct 1 09:01:30 2019 -0600 Fix p5-Text-Xslate on Perl 5.8.5 Fixes #140 This is a patch from @pali, to fix the failure seen by @skaji on p5-Text-Xslate. (cherry picked from commit 923705f8512cc1f17b01de6008d52f865f63b856) Signed-off-by: Nicolas R <atoo...@cpan.org> commit d6dd7bfa551631ac50ca10d21791869d7499204e Author: Nicolas R <atoo...@cpan.org> Date: Tue Oct 1 08:58:27 2019 -0600 Add a comment to point to the value used for __MAX_PERL__ (cherry picked from commit 3ffaa936e47410a206f29ab391151a4c0a729c0d) Signed-off-by: Nicolas R <atoo...@cpan.org> commit d2c356678d3586bcbd9c080bce6cd6f6c99b598c Author: Nicolas R <atoo...@cpan.org> Date: Tue Oct 1 08:46:01 2019 -0600 Update bugtracker and repository URLs (cherry picked from commit 0d853a6437ac479adece3251b9873ddc8d33c14d) Signed-off-by: Nicolas R <atoo...@cpan.org> commit 8a3f88ffff017b157d5260e5dbdbf45878805db0 Author: Nicolas R <atoo...@cpan.org> Date: Tue Oct 1 08:44:15 2019 -0600 Adjust Makefile.PL for devel versions (cherry picked from commit 494fc7f6c6b46dd46315bb4d5f8a11d8783e19c6) Signed-off-by: Nicolas R <atoo...@cpan.org> commit bc5db3a4a2e5dcf3e113c2804213169183833aca Author: Karl Williamson <k...@cpan.org> Date: Sun Sep 29 12:00:59 2019 -0600 parts/inc/misc: Fix EBCDIC build problem An extra paren got in there. (cherry picked from commit 6e7177508616091a7424141d698ed1be7c6b123e) Signed-off-by: Nicolas R <atoo...@cpan.org> commit d747fab59d3f9e0329783fa2906672c82ed01373 Author: Karl Williamson <k...@cpan.org> Date: Fri Sep 27 11:02:43 2019 -0600 utf8_to_uvchr_buf: Fix error checking on early EBCDICs This code assumed ASCII platforms. It only gets executed in the face of malformed UTF-8. (cherry picked from commit b54c9ed809465200054ed546da72925d185992ca) Signed-off-by: Nicolas R <atoo...@cpan.org> commit 0f4e575f8076ead5fbebf677715696bb17408157 Author: Nicolas R <atoo...@cpan.org> Date: Fri Sep 27 18:33:43 2019 -0600 Update Changes for 3.54 release (cherry picked from commit 14cac67ed47533fa116c6e1c26a839a8ca0a5edc) Signed-off-by: Nicolas R <atoo...@cpan.org> commit b8c99c3f5cd618bde30adafdb6dba0418cb5c9d3 Author: Nicolas R <atoo...@cpan.org> Date: Fri Sep 27 18:23:44 2019 -0600 Changelog for for 3.53 (cherry picked from commit 9e59620bb324c50de0c8c379b126f1fc23172d06) Signed-off-by: Nicolas R <atoo...@cpan.org> ----------------------------------------------------------------------- Summary of changes: dist/Devel-PPPort/Changes | 27 +++++++++++++++++++++++++++ dist/Devel-PPPort/Makefile.PL | 8 ++++---- dist/Devel-PPPort/PPPort_pm.PL | 2 +- dist/Devel-PPPort/parts/inc/Sv_set | 30 +++++++++++++++++++++--------- dist/Devel-PPPort/parts/inc/misc | 1 - dist/Devel-PPPort/parts/inc/utf8 | 7 ++++++- 6 files changed, 59 insertions(+), 16 deletions(-) diff --git a/dist/Devel-PPPort/Changes b/dist/Devel-PPPort/Changes index ce9add54ea..f01d8c7a5b 100644 --- a/dist/Devel-PPPort/Changes +++ b/dist/Devel-PPPort/Changes @@ -1,5 +1,32 @@ Revision history for Devel-PPPort + 3.54 - 2019-09-27 + + * Fix Unix-format path in Devel::PPPort's Makefile.PL + * Fix utf8_to_uvchr_buf for 5.7.0 + * Add hint for utf8_to_uvchr() + * Fix hints for is_ascii_string + * Use numeric comparisons with $] + * Fix 'for loops' to work on early perls + * Can't use GCC brace groups before 5.4 + * Add script to regenerate ppport.fnc + * Suppress useless warning + * Fix mktests.PL for Perl 5.8.0 + * Implement sv_len_utf8_nomg() and sv_len_utf8() + * Fix eval_pv for Perl versions prior to 5.31.2 + * Consolidate UTF-8 functions/macros into new file + * Implement sv_mortalcopy_flags() + * Implement newSVsv_flags() + * Enable Perl compile-time warnings at all place + * Improve Makefile.PL + * Add tests for IVdf, UVuf, IV_MAX and UV_MAX + + 3.53 - 2019-09-27 + + * Rename PPPort_xs.PL to RealPPPort_xs.PL + * Fix compilation issues with version older than 5.010 + * Fix compilation issues with version older than 5.010 + 3.52 - 2019-05-14 * fix utf8_to_uvchr_buf retval in 5.30 diff --git a/dist/Devel-PPPort/Makefile.PL b/dist/Devel-PPPort/Makefile.PL index 66c470304e..cd0c49325e 100644 --- a/dist/Devel-PPPort/Makefile.PL +++ b/dist/Devel-PPPort/Makefile.PL @@ -71,7 +71,7 @@ sub configure my $version; my $line; while ($line = <FH>) { - ($version) = $line =~ /^\$VERSION = '([\d.]+)';$/ and last; + ($version) = $line =~ /^\$VERSION = '([\d.]+(_\d+)?)';$/ and last; }; die 'failed to extract $VERSION from PPPort_pm.PL' if not $version; close FH; @@ -86,12 +86,12 @@ sub configure }, resources => { bugtracker => { - web => 'https://rt.perl.org/rt3/', + web => 'https://github.com/Dual-Life/Devel-PPPort/issues', }, repository => { type => 'git', - url => 'git://perl5.git.perl.org/perl.git', - web => 'https://perl5.git.perl.org/perl.git', + url => 'git://github.com/Dual-Life/Devel-PPPort.git', + web => 'https://github.com/Dual-Life/Devel-PPPort', }, }, }; diff --git a/dist/Devel-PPPort/PPPort_pm.PL b/dist/Devel-PPPort/PPPort_pm.PL index 4b495c9305..a93d2e5de1 100644 --- a/dist/Devel-PPPort/PPPort_pm.PL +++ b/dist/Devel-PPPort/PPPort_pm.PL @@ -106,7 +106,7 @@ my @todo_list = reverse sort keys %todo; # directories are empty (which should only happen during regeneration of the # base and todo files).). Actually the final element is for blead (at the # time things were regenerated), which is 1 beyond the max version supported. -my $INT_MAX_PERL = (@todo_list) ? $todo_list[0] - 1 : '5030000'; +my $INT_MAX_PERL = (@todo_list) ? $todo_list[0] - 1 : '5030000'; # used for __MAX_PERL__ my $MAX_PERL = format_version($INT_MAX_PERL); my $INT_MIN_PERL = (@todo_list) ? $todo_list[-1] : 5003007; my $MIN_PERL = format_version($INT_MIN_PERL); diff --git a/dist/Devel-PPPort/parts/inc/Sv_set b/dist/Devel-PPPort/parts/inc/Sv_set index 97533a642b..2e2b0d5b8b 100644 --- a/dist/Devel-PPPort/parts/inc/Sv_set +++ b/dist/Devel-PPPort/parts/inc/Sv_set @@ -25,15 +25,15 @@ sv_setsv_flags #if ( { VERSION >= 5.7.3 } && { VERSION < 5.8.7 } ) || ( { VERSION >= 5.9.0 } && { VERSION < 5.9.2 } ) #undef sv_setsv_flags #define SV_NOSTEAL 16 -#define sv_setsv_flags(dstr, sstr, flags) \ - STMT_START { \ - if (((flags) & SV_NOSTEAL) && (SvFLAGS((sstr)) & SVs_TEMP)) { \ - SvTEMP_off((sstr)); \ - Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \ - SvTEMP_on((sstr)); \ - } else { \ - Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \ - } \ +#define sv_setsv_flags(dstr, sstr, flags) \ + STMT_START { \ + if (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) { \ + SvTEMP_off((SV *)(sstr)); \ + Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \ + SvTEMP_on((SV *)(sstr)); \ + } else { \ + Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \ + } \ } STMT_END #endif @@ -160,6 +160,18 @@ newSVsv_nomg(sv) #endif +void +sv_setsv_compile_test(sv) + SV *sv + CODE: + sv_setsv(sv, NULL); +#ifdef sv_setsv_flags + sv_setsv_flags(sv, NULL, 0); +#ifdef SV_NOSTEAL + sv_setsv_flags(sv, NULL, SV_NOSTEAL); +#endif +#endif + =tests plan => 15 my $foo = 5; diff --git a/dist/Devel-PPPort/parts/inc/misc b/dist/Devel-PPPort/parts/inc/misc index 89b6dc9751..1743e5d6b3 100644 --- a/dist/Devel-PPPort/parts/inc/misc +++ b/dist/Devel-PPPort/parts/inc/misc @@ -403,7 +403,6 @@ __UNDEFINED__ isCNTRL(c) ( (c) == '\0' || (c) == '\a' || (c) == '\b' /* The controls are everything below blank, plus one outlier */ __UNDEFINED__ isCNTRL_L1(c) ((WIDEST_UTYPE) (c) < ' ' \ || (WIDEST_UTYPE) (c) == D_PPP_OUTLIER_CONTROL) - ) /* The ordering of the tests in this and isUPPER are to exclude most characters * early */ __UNDEFINED__ isLOWER(c) ( (c) >= 'a' && (c) <= 'z' \ diff --git a/dist/Devel-PPPort/parts/inc/utf8 b/dist/Devel-PPPort/parts/inc/utf8 index 8a7271d8d5..0e91c07e40 100644 --- a/dist/Devel-PPPort/parts/inc/utf8 +++ b/dist/Devel-PPPort/parts/inc/utf8 @@ -306,7 +306,12 @@ utf8_to_uvchr_buf(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen) *retlen = D_PPP_MIN(*retlen, curlen); *retlen = D_PPP_MIN(*retlen, UTF8SKIP(s)); do { - if (s[i] < 0x80 || s[i] > 0xBF) { +# ifdef UTF8_IS_CONTINUATION + if (! UTF8_IS_CONTINUATION(s[i])) +# else /* Versions without the above don't support EBCDIC anyway */ + if (s[i] < 0x80 || s[i] > 0xBF) +# endif + { *retlen = i; break; } -- Perl5 Master Repository