"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 (file)
--- 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() \