This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline - a few Devel::Peak fails.
[perl5.git] / pod / perluniintro.pod
index cd978d0..cdd0b40 100644 (file)
@@ -236,19 +236,11 @@ for doing conversions between those encodings:
 
 Normally writing out Unicode data
 
-    print FH chr(0x100), "\n";
+    print chr(0x100), "\n";
 
-will print out the raw UTF-8 bytes, but you will get a warning
-out of that if you use C<-w> or C<use warnings>.  To avoid the
-warning open the stream explicitly in UTF-8:
+will print out the raw UTF-8 bytes.
 
-    open FH, ">:utf8", "file";
-
-and on already open streams use C<binmode()>:
-
-    binmode(STDOUT, ":utf8");
-
-Reading in correctly formed UTF-8 data will not magically turn
+But reading in correctly formed UTF-8 data will not magically turn
 the data into Unicode in Perl's eyes.
 
 You can use either the C<':utf8'> I/O discipline when opening files
@@ -259,11 +251,11 @@ You can use either the C<':utf8'> I/O discipline when opening files
 The I/O disciplines can also be specified more flexibly with
 the C<open> pragma; see L<open>:
 
-    use open ':utf8'; # input and output default discipline will be UTF-8
-    open X, ">file";
-    print X chr(0x100), "\n";
+    use open ':utf8'; # input and output will be UTF-8
+    open X, ">utf8";
+    print X chr(0x100), "\n"; # this would have been UTF-8 without the pragma
     close X;
-    open Y, "<file";
+    open Y, "<utf8";
     printf "%#x\n", ord(<Y>); # this should print 0x100
     close Y;
 
@@ -337,8 +329,7 @@ by repeatedly encoding it in UTF-8:
     close F;
 
 If you run this code twice, the contents of the F<file> will be twice
-UTF-8 encoded.  A C<use open ':utf8'> would have avoided the bug, or
-explicitly opening also the F<file> for input as UTF-8.
+UTF-8 encoded.  A C<use open ':utf8'> would have avoided the bug.
 
 =head2 Special Cases