diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-01-04 11:27:57 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-01-04 11:27:57 +0000 |
| commit | 7cebcbc0979cbf6a0b15188e491cb65c675adbe5 (patch) | |
| tree | 29206d61ff40359ac7355e837c450d3c8005da87 | |
| parent | 2e67a71412c87f9c81463c1903862d335ebdcd90 (diff) | |
| download | perl-7cebcbc0979cbf6a0b15188e491cb65c675adbe5.tar.gz | |
Add ${^UTF8LOCALE} to give perl space access to PL_utf8locale
p4raw-id: //depot/perl@23741
| -rw-r--r-- | gv.c | 6 | ||||
| -rw-r--r-- | mg.c | 4 |
2 files changed, 8 insertions, 2 deletions
@@ -926,9 +926,11 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) if (strEQ(name2, "AINT")) goto ro_magicalize; break; - case '\025': /* $^UNICODE */ + case '\025': /* ${^UNICODE}, ${^UTF8LOCALE} */ if (strEQ(name2, "NICODE")) goto ro_magicalize; + if (strEQ(name2, "TF8LOCALE")) + goto ro_magicalize; break; case '\027': /* $^WARNING_BITS */ if (strEQ(name2, "ARNING_BITS")) @@ -1863,6 +1865,8 @@ Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags) case '\025': /* ${^UNICODE} */ if (strEQ(name1, "NICODE")) goto yes; + if (strEQ(name1, "TF8LOCALE")) + goto yes; break; case '\027': /* ${^WARNING_BITS} */ if (strEQ(name1, "ARNING_BITS")) @@ -715,9 +715,11 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) ? (PL_taint_warn || PL_unsafe ? -1 : 1) : 0); break; - case '\025': /* $^UNICODE */ + case '\025': /* $^UNICODE, $^UTF8LOCALE */ if (strEQ(mg->mg_ptr, "\025NICODE")) sv_setuv(sv, (UV) PL_unicode); + else if (strEQ(mg->mg_ptr, "\025TF8LOCALE")) + sv_setuv(sv, (UV) PL_utf8locale); break; case '\027': /* ^W & $^WARNING_BITS */ if (*(mg->mg_ptr+1) == '\0') |