In perl.git, the branch smoke-me/khw-global_struct has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/da18fcec0236c4ac7e0efc073735ebe6e7be7ba5?hp=435cb4aa4e41cc7f8298c184c55a6277ae76e7b9>
- Log -----------------------------------------------------------------
commit da18fcec0236c4ac7e0efc073735ebe6e7be7ba5
Author: Karl Williamson <k...@cpan.org>
Date: Wed Dec 26 23:17:44 2018 -0700
l
-----------------------------------------------------------------------
Summary of changes:
regcomp.c | 22 ++++++++++------------
win32/win32.c | 5 +++++
2 files changed, 15 insertions(+), 12 deletions(-)
diff --git a/regcomp.c b/regcomp.c
index 55e412b0f6..37ea8f0400 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -14324,18 +14324,16 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32
*flagp, U32 depth)
has_micro_sign = TRUE;
}
- *(s++) = (char) (DEPENDS_SEMANTICS)
- ? toFOLD(ender)
-
- /* Under /u, the fold of any
- * character in the 0-255 range
- * happens to be its lowercase
- * equivalent, except for LATIN SMALL
- * LETTER SHARP S, which was handled
- * above, and the MICRO SIGN, whose
- * fold requires UTF-8 to represent.
- * */
- : toLOWER_L1(ender);
+ *(s++) = (DEPENDS_SEMANTICS)
+ ? (char) toFOLD(ender)
+
+ /* Under /u, the fold of any character in
+ * the 0-255 range happens to be its
+ * lowercase equivalent, except for LATIN
+ * SMALL LETTER SHARP S, which was handled
+ * above, and the MICRO SIGN, whose fold
+ * requires UTF-8 to represent. */
+ : (char) toLOWER_L1(ender);
}
} /* End of adding current character to the node */
diff --git a/win32/win32.c b/win32/win32.c
index 8b2808c6d8..8104d864c2 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -1684,6 +1684,8 @@ win32_longpath(char *path)
static void
out_of_memory(void)
{
+ dVAR;
+
if (PL_curinterp)
croak_no_mem();
exit(1);
@@ -4711,6 +4713,7 @@ win32_csighandler(int sig)
void
Perl_sys_intern_init(pTHX)
{
+ dVAR;
int i;
w32_perlshell_tokens = NULL;
@@ -4760,6 +4763,8 @@ Perl_sys_intern_init(pTHX)
void
Perl_sys_intern_clear(pTHX)
{
+ dVAR;
+
Safefree(w32_perlshell_tokens);
Safefree(w32_perlshell_vec);
/* NOTE: w32_fdpid is freed by sv_clean_all() */
--
Perl5 Master Repository
