In perl.git, the branch smoke-me/khw-ppport has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/b4fdb29eb07743f6c66ddafe9f275c29dd1823aa?hp=27a4c7430e739f4c4cd4ed44829d06a7b057bdf5>
- Log -----------------------------------------------------------------
commit b4fdb29eb07743f6c66ddafe9f275c29dd1823aa
Author: Karl Williamson <k...@cpan.org>
Date: Sun Sep 8 10:15:31 2019 -0600
f
-----------------------------------------------------------------------
Summary of changes:
sv.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/sv.c b/sv.c
index 495ed860b9..e11e3c172f 100644
--- a/sv.c
+++ b/sv.c
@@ -6732,7 +6732,7 @@ Perl_sv_clear(pTHX_ SV *const orig_sv)
* set SvLEN to whatever value was in the now-freed
* regex body. The PVX buffer is shared by multiple re's
* and only freed once, by the re whose len in non-null */
- STRLEN len = ReANY(sv)->xpv_len;
+ STRLEN len = ReANY((REGEXP*) sv)->xpv_len;
pregfree2((REGEXP*) sv);
SvLEN_set((sv), len);
goto freescalar;
--
Perl5 Master Repository
