Change 26066: I/O is UTF-8, not "UNICODE"

[Nicholas Clark]

Change 26066 by [EMAIL PROTECTED] on 2005/11/09 21:30:02

        I/O is UTF-8, not "UNICODE"

Affected files ...

... //depot/perl/t/io/layers.t#25 edit

Differences ...

==== //depot/perl/t/io/layers.t#25 (text) ====
Index: perl/t/io/layers.t
--- perl/t/io/layers.t#24~25967~        Wed Nov  2 18:09:30 2005
+++ perl/t/io/layers.t  Wed Nov  9 13:30:02 2005
@@ -31,20 +31,20 @@
    $DOSISH    = 1 if !$DOSISH and $^O =~ /^uwin/;
 my $NONSTDIO  = exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio'     ? 1 : 0;
 my $FASTSTDIO = $Config{d_faststdio} && $Config{usefaststdio}      ? 1 : 0;
-my $UNICODE_STDIN;
+my $UTF8_STDIN;
 if (${^UNICODE} & 1) {
     if (${^UNICODE} & 64) {
        # Conditional on the locale
-       $UNICODE_STDIN = ${^UTF8LOCALE};
+       $UTF8_STDIN = ${^UTF8LOCALE};
     } else {
        # Unconditional
-       $UNICODE_STDIN = 1;
+       $UTF8_STDIN = 1;
     }
 } else {
-    $UNICODE_STDIN = 0;
+    $UTF8_STDIN = 0;
 }
 my $NTEST = 44 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 5 : 0)
-    + $UNICODE_STDIN;
+    + $UTF8_STDIN;
 
 sub PerlIO::F_UTF8 () { 0x00008000 } # from perliol.h
 
@@ -57,7 +57,7 @@
 # FASTSTDIO     = $FASTSTDIO
 # UNICODE       = ${^UNICODE}
 # UTF8LOCALE    = ${^UTF8LOCALE}
-# UNICODE_STDIN = $UNICODE_STDIN
+# UTF8_STDIN = $UTF8_STDIN
 __EOH__
 
 SKIP: {
@@ -122,7 +122,7 @@
     }
 
     check([ PerlIO::get_layers(STDIN) ],
-         $UNICODE_STDIN ? [ "stdio", "utf8" ] : [ "stdio" ],
+         $UTF8_STDIN ? [ "stdio", "utf8" ] : [ "stdio" ],
          "STDIN");
 
     open(F, ">:crlf", "afile");
End of Patch.