This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add missing save_re_context()
authorKarl Williamson <khw@cpan.org>
Thu, 20 Feb 2020 00:07:20 +0000 (17:07 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 20 Feb 2020 01:45:57 +0000 (18:45 -0700)
I noticed by symmetry that this call is missing.  I don't think anyone
knows how to reliably reproduce the problem this causes under a race
with other threads.

regcomp.c

index c4b30af..e8328f5 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -23612,6 +23612,7 @@ Perl_parse_uniprop_string(pTHX_
             PUSHSTACKi(PERLSI_OVERLOAD);
             ENTER ;
             SAVETMPS;
+            save_re_context();
 
             PUSHMARK(SP) ;
             XPUSHs(character_name);