From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 23 Oct 2002 18:56:08 +0000 (+0000)
Subject: Further tweaks to perluniintro.pod
X-Git-Tag: accepted/trunk/20130322.191538~25203
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0cf8a8d9f252771f63b234f08b1ecc0f1b1f8a0f;p=platform%2Fupstream%2Fperl.git

Further tweaks to perluniintro.pod

p4raw-id: //depot/perl@18051
---

diff --git a/pod/perluniintro.pod b/pod/perluniintro.pod
index c2a57d8..21f0fa7 100644
--- a/pod/perluniintro.pod
+++ b/pod/perluniintro.pod
@@ -400,8 +400,7 @@ the file "text.utf8", encoded as UTF-8:
 
     open(my $nihongo, '<:encoding(iso-2022-jp)', 'text.jis');
     open(my $unicode, '>:utf8',                  'text.utf8');
-    select $unicode;
-    while (<$nihongo>) { print }
+    while (<$nihongo>) { print $unicode $_ }
 
 The naming of encodings, both by the C<open()> and by the C<open>
 pragma, is similar to the C<encoding> pragma in that it allows for