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
