mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

locale.c: Add missing mutex locks

Browse Source 
This adds locks around mbrtowc and reading the environment that a code
review indicated were missing.  The mbrtowc lock is currently a no-op,
but a future commit will change that.  The other lock is in code rarely
compiled.
This commit is contained in:
Karl Williamson 2022-09-10 11:50:40 -06:00
parent cfe3eec174
commit a5fea3d628
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
locale.c
View File

@ -3186,7 +3186,9 @@ Perl_mbtowc_(pTHX_ const wchar_t * pwc, const char * s, const Size_t len)
# if defined(USE_MBRTOWC)
SETERRNO(0, 0);
MBRTOWC_LOCK_;
retval = (SSize_t) mbrtowc((wchar_t *) pwc, s, len, &PL_mbrtowc_ps);
MBRTOWC_UNLOCK_;
# else
@ -5470,6 +5472,9 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
* form qr/ ^ LC_ [A-Z]+ = /x, except LC_ALL which was
* already handled above. These are assumed to be locale
* settings. Output them and their values. */
ENV_READ_LOCK;
for (e = environ; *e; e++) {
const STRLEN prefix_len = sizeof("LC_") - 1;
STRLEN uppers_len;
@ -5485,6 +5490,8 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
*e + prefix_len + uppers_len + 1);
}
}
ENV_READ_UNLOCK;
}
# else