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 /gv.c | |
| parent | 2e67a71412c87f9c81463c1903862d335ebdcd90 (diff) | |
| download | perl-7cebcbc0979cbf6a0b15188e491cb65c675adbe5.tar.gz | |
Add ${^UTF8LOCALE} to give perl space access to PL_utf8locale
p4raw-id: //depot/perl@23741
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 6 |
1 files changed, 5 insertions, 1 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")) |