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

1 files changed, 2 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 8dfa932e42..1d0694acf2 100644
--- a/gv.c
+++ b/gv.c
@@ -975,7 +975,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
         else
             break;
     case '\025':
-        if (len > 1 && strNE(name, "\025TF8_LOCALE")) 
+        if (len > 1 && strNE(name, "\025NICODE")) 
 	    break;
 	goto ro_magicalize;
 
@@ -1800,7 +1800,7 @@ Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags)
 	}
 	break;
     case '\025':
-        if (len > 1 && strEQ(name, "\025TF8_LOCALE"))
+        if (len > 1 && strEQ(name, "\025NICODE"))
 	    goto yes;
     case '\027':   /* $^W & $^WARNING_BITS */
 	if (len == 1