From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Jun 2001 23:10:55 +0000 (+0000)
Subject: "10.", that is, decimal numbers can have no decimal part at all.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=106bc2206dac2e824f7be45266a9170702354615;p=p5sagit%2Fp5-mst-13.2.git

"10.", that is, decimal numbers can have no decimal part at all.

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

diff --git a/perl.h b/perl.h
index 4c878ea..0adb8bf 100644
--- a/perl.h
+++ b/perl.h
@@ -3437,7 +3437,7 @@ typedef struct am_table_short AMTS;
 #define IS_NUMERIC_RADIX(s, send)	\
 	(PL_numeric_radix_sv \
 	 && IN_LOCALE \
-	 && SvCUR(PL_numeric_radix_sv) < ((send)-(s)) \
+	 && SvCUR(PL_numeric_radix_sv) <= ((send)-(s)) \
 	 && memEQ(s, SvPVX(PL_numeric_radix_sv), SvCUR(PL_numeric_radix_sv)))
 
 #define STORE_NUMERIC_LOCAL_SET_STANDARD() \