diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-15 21:19:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-15 21:19:37 +0000 |
| commit | a05d7ebb5e798334196e3cff205b658506cc4384 (patch) | |
| tree | 0146d20f2a85eeb407ef0d67305028aee32c79fc /mg.c | |
| parent | eadddfac8c84315d3b083947a75b271e6d6b7754 (diff) | |
| download | perl-a05d7ebb5e798334196e3cff205b658506cc4384.tar.gz | |
The new(er) way of controlling Unicode I/O (and other) features;
-C (or PERL_UNICODE). See perlrun/-C for more details.
p4raw-id: //depot/perl@18715
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 12 |
1 files changed, 3 insertions, 9 deletions
@@ -662,9 +662,9 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) ? (PL_taint_warn || PL_unsafe ? -1 : 1) : 0); break; - case '\025': /* $^UTF8_LOCALE */ - if (strEQ(mg->mg_ptr, "\025TF8_LOCALE")) - sv_setiv(sv, (IV) (PL_wantutf8 && PL_utf8locale)); + case '\025': /* $^UNICODE */ + if (strEQ(mg->mg_ptr, "\025NICODE")) + sv_setuv(sv, (UV) PL_unicode); break; case '\027': /* ^W & $^WARNING_BITS */ if (*(mg->mg_ptr+1) == '\0') @@ -1942,12 +1942,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) PL_basetime = (Time_t)(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)); #endif break; - case '\025': /* $^UTF8_LOCALE */ - if (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) - PL_wantutf8 = PL_utf8locale; - else - PL_wantutf8 = FALSE; - break; case '\027': /* ^W & $^WARNING_BITS */ if (*(mg->mg_ptr+1) == '\0') { if ( ! (PL_dowarn & G_WARN_ALL_MASK)) { |