From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 10 Jun 2001 01:08:26 +0000 (+0000)
Subject: Do locale specific separator if only in locale.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71ed62e67e487c60347cc3fc933e317ea26e38e2;p=p5sagit%2Fp5-mst-13.2.git

Do locale specific separator if only in locale.

p4raw-id: //depot/perl@10490
---

diff --git a/util.c b/util.c
index 9cf667f..ecaf18b 100644
--- a/util.c
+++ b/util.c
@@ -4083,7 +4083,7 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value)
     I32 offcount;	/* number of digits in least significant part */
 
 #ifdef USE_LOCALE_NUMERIC
-    if (PL_numeric_radix_sv)
+    if (PL_numeric_radix_sv && IN_LOCALE)
 	point = SvPV(PL_numeric_radix_sv, pointlen);
 #endif