X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=8d9263d90ac8a41cf6aa1eaab31df8518a582930;hb=6ec152c37130b7e4730fc56d5699a4b02f7c0f4a;hp=57afb3e37cf02f30d9f68c25c318844aa045db3f;hpb=76549fefd07754d43beb1146d96596a36d02db09;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.h b/perl.h
index 57afb3e..8d9263d 100644
--- a/perl.h
+++ b/perl.h
@@ -3336,7 +3336,7 @@ typedef struct am_table_short AMTS;
 
 #define IS_NUMERIC_RADIX(s)	\
 	((PL_hints & HINT_LOCALE) && \
-	  PL_numeric_radix && memEQ(s, SvPVX(PL_numeric_radix), SvCUR(PL_numeric_radix)))
+	  PL_numeric_radix_sv && memEQ(s, SvPVX(PL_numeric_radix_sv), SvCUR(PL_numeric_radix_sv)))
 
 #define STORE_NUMERIC_LOCAL_SET_STANDARD() \
 	bool was_local = (PL_hints & HINT_LOCALE) && PL_numeric_local; \