1 files changed, 2 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index 7d9b2ed2ba..4c878ea15a 100644
--- a/perl.h
+++ b/perl.h
@@ -3434,9 +3434,10 @@ typedef struct am_table_short AMTS;
 #define IN_LOCALE \
 	(PL_curcop == &PL_compiling ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
 
-#define IS_NUMERIC_RADIX(s)	\
+#define IS_NUMERIC_RADIX(s, send)	\
 	(PL_numeric_radix_sv \
 	 && IN_LOCALE \
+	 && 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() \