Add ${^SAFE_LOCALES}

This read-only variable returns a boolean as to whether it is safe to
use locales in this perl.  Without threads it returns 1; when a future
commit adds thread-safe locale handling, it will also return 1 if that
is enabled.

1 files changed, 4 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index 00adb8995c..0dcbabc9ec 100644
--- a/gv.c
+++ b/gv.c
@@ -2067,6 +2067,10 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len,
                     goto storeparen;
                 }
 		break;
+            case '\023':
+                if (memEQs(name, len, "\023AFE_LOCALES"))
+		    goto ro_magicalize;
+		break;
 	    case '\024':	/* ${^TAINT} */
                 if (memEQs(name, len, "\024AINT"))
 		    goto ro_magicalize;