Numeric conversion tweaks suggested by Hugo and Nicholas.

p4raw-id: //depot/perl@10485

1 files changed, 0 insertions, 6 deletions

diff --git a/perl.h b/perl.h
index 08f00f10cc..4ceefc4e55 100644
--- a/perl.h
+++ b/perl.h
@@ -3450,12 +3450,6 @@ typedef struct am_table_short AMTS;
 #define IN_LOCALE \
 	(PL_curcop == &PL_compiling ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
 
-#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() \
 	bool was_local = PL_numeric_local && IN_LOCALE; \
 	if (was_local) SET_NUMERIC_STANDARD();