In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/b00627d0013d067e2f0c15c7024a570ada534c4d?hp=631637d8aaa8fe442292c2d5365e07f09497c853>
- Log -----------------------------------------------------------------
commit b00627d0013d067e2f0c15c7024a570ada534c4d
Author: Karl Williamson <k...@cpan.org>
Date: Sun Oct 7 08:56:27 2018 -0600
regcomp.c: Fix Posix ASCII defins for cased, vert space
The current definitions are wrong, but not actually used currently.
This fixes them. cased is the same as alphabetic in the ASCII range,
and set vert space to NULL so that it won't inadvertently get used
commit 72ba98d57a7d218b16714daa7a56b0497ce61b85
Author: Karl Williamson <k...@cpan.org>
Date: Sun Oct 7 08:51:38 2018 -0600
perl.c: Silence compiler warning
A space is needed in these formats to comply with C++11
-----------------------------------------------------------------------
Summary of changes:
perl.c | 4 ++--
regcomp.c | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/perl.c b/perl.c
index 30ee577483..bb012ee996 100644
--- a/perl.c
+++ b/perl.c
@@ -1330,8 +1330,8 @@ perl_destruct(pTHXx)
for (sv = sva + 1; sv < svend; ++sv) {
if (SvTYPE(sv) != (svtype)SVTYPEMASK) {
PerlIO_printf(Perl_debug_log, "leaked: sv=0x%p"
- " flags=0x%"UVxf
- " refcnt=%"UVuf pTHX__FORMAT "\n"
+ " flags=0x%" UVxf
+ " refcnt=%" UVuf pTHX__FORMAT "\n"
"\tallocated at %s:%d %s %s (parent 0x%" UVxf ");"
"serial %" UVuf "\n",
(void*)sv, (UV)sv->sv_flags, (UV)sv->sv_refcnt
diff --git a/regcomp.c b/regcomp.c
index b303c6284a..1e8266b67e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -21524,7 +21524,7 @@ Perl_init_uniprops(pTHX)
PL_Posix_ptrs[_CC_ALPHANUMERIC] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXALNUM]);
PL_Posix_ptrs[_CC_ALPHA] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXALPHA]);
PL_Posix_ptrs[_CC_BLANK] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXBLANK]);
- PL_Posix_ptrs[_CC_CASED] = _new_invlist_C_array(uni_prop_ptrs[UNI_CASED]);
+ PL_Posix_ptrs[_CC_CASED] = PL_Posix_ptrs[_CC_ALPHA];
PL_Posix_ptrs[_CC_CNTRL] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXCNTRL]);
PL_Posix_ptrs[_CC_DIGIT] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXDIGIT]);
PL_Posix_ptrs[_CC_GRAPH] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXGRAPH]);
@@ -21533,7 +21533,7 @@ Perl_init_uniprops(pTHX)
PL_Posix_ptrs[_CC_PUNCT] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXPUNCT]);
PL_Posix_ptrs[_CC_SPACE] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXSPACE]);
PL_Posix_ptrs[_CC_UPPER] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXUPPER]);
- PL_Posix_ptrs[_CC_VERTSPACE] =
_new_invlist_C_array(uni_prop_ptrs[UNI_VERTSPACE]);
+ PL_Posix_ptrs[_CC_VERTSPACE] = NULL;
PL_Posix_ptrs[_CC_WORDCHAR] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXWORD]);
PL_Posix_ptrs[_CC_XDIGIT] =
_new_invlist_C_array(uni_prop_ptrs[UNI_POSIXXDIGIT]);
--
Perl5 Master Repository
