In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/2008bed3f47cb4874f5c8378866c0c87c2ceb2dc?hp=54ea08ea5e4fd909a39392aa53ffff43eaa4cb07>
- Log -----------------------------------------------------------------
commit 2008bed3f47cb4874f5c8378866c0c87c2ceb2dc
Author: Karl Williamson <k...@cpan.org>
Date: Wed Apr 24 15:46:38 2019 -0600
PATCH: [perl #134014] lib/locale.t panic on *bsd
This was due to a faulty logic in an assertion, corrected here.
-----------------------------------------------------------------------
Summary of changes:
perl.h | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/perl.h b/perl.h
index dff4b528ab..ce4003013b 100644
--- a/perl.h
+++ b/perl.h
@@ -6420,8 +6420,8 @@ expression, but with an empty argument list, like this:
# define STORE_LC_NUMERIC_SET_TO_NEEDED() \
STMT_START { \
LC_NUMERIC_LOCK( \
- (IN_LC(LC_NUMERIC) && _NOT_IN_NUMERIC_UNDERLYING) \
- || _NOT_IN_NUMERIC_STANDARD); \
+ ( ( IN_LC(LC_NUMERIC) && _NOT_IN_NUMERIC_UNDERLYING) \
+ || (! IN_LC(LC_NUMERIC) && _NOT_IN_NUMERIC_STANDARD)));\
if (IN_LC(LC_NUMERIC)) { \
if (_NOT_IN_NUMERIC_UNDERLYING) { \
Perl_set_numeric_underlying(aTHX); \
--
Perl5 Master Repository
