develooper Front page | perl.perl5.porters | Postings from July 2018

[PATCH v1 1/1] lc_numeric_set only defined w/ USE_LOCALE_NUMERIC

Thread Next
From:
Philip Prindeville
Date:
July 1, 2018 21:16
Subject:
[PATCH v1 1/1] lc_numeric_set only defined w/ USE_LOCALE_NUMERIC
Message ID:
1530479779-31898-1-git-send-email-philipp@redfish-solutions.com
From: Philip Prindeville <philipp@cpan.org>

From: Philip Prindeville <philipp@cpan.org>

lc_numeric_set must always be protected with #ifdef USE_LOCALE_NUMERIC.

Signed-off-by: Philip Prindeville <philipp@cpan.org>
---
 sv.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sv.c b/sv.c
index 07865bb2c127c84f900898abfd97fac6164b80c5..28182fbdb94f2e94586dd975434c712775c82e7a 100644
--- a/sv.c
+++ b/sv.c
@@ -13330,10 +13330,12 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
 
     SvTAINT(sv);
 
+#ifdef USE_LOCALE_NUMERIC
     if (lc_numeric_set) {
         RESTORE_LC_NUMERIC();   /* Done outside loop, so don't have to
                                    save/restore each iteration. */
     }
+#endif
 }
 
 /* =========================================================================
-- 
2.7.4

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About