diff options
| author | Karl Williamson <khw@cpan.org> | 2020-01-03 22:16:42 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-02-19 22:09:48 -0700 |
| commit | d2c9cb5392e8c58c3bb1935fc3c098737224567c (patch) | |
| tree | 647a4398f465b3b0751440c59747aea104c989ac /intrpvar.h | |
| parent | 4829f32decd128e6a122bd8ce35fe944bd87f104 (diff) | |
| download | perl-d2c9cb5392e8c58c3bb1935fc3c098737224567c.tar.gz | |
POSIX::mblen() Make thread-safe; allow shift state control
This commit changes the behavior so that it takes a scalar parameter
instead of a char *, and thus might not be forceable into a valid PV.
When not a PV, the shift state is reinitialized, like calling mblen with
a NULL first parameter. Previously the shift state was always
reinitialized with every call, which meant this could not work on
locales with shift states.
This commit also changes to use mbrlen() on threaded perls transparently
(mostly), when available, to achieve thread-safe operation. It is not
completely transparent because mbrlen (under the very rare stateful
locales) returns a different value when it's resetting the shift state.
It also may set errno differently upon errors, and no effort is made to
hide that difference. Also mbrlen on some platforms can handle partial
characters.
[perl #133928] showed that someone was having trouble with shift states.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index ff238ab9ff..39bc99d898 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -938,6 +938,10 @@ PERLVARI(I, InBitmap, SV *, NULL) PERLVAR(I, CCC_non0_non230, SV *) PERLVAR(I, Private_Use, SV *) +#ifdef HAS_MBRLEN +PERLVAR(I, mbrlen_ps, mbstate_t) +#endif + /* If you are adding a U8 or U16, check to see if there are 'Space' comments * above on where there are gaps which currently will be structure padding. */ |