From: Audrey Tang <cpan@audreyt.org>
Date: Fri, 7 Feb 2003 00:02:49 +0000 (+0800)
Subject: perluniintro nit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12f98225223fc8656cd9a46ff1e4f49c6c3f2943;p=p5sagit%2Fp5-mst-13.2.git

perluniintro nit
Message-ID: <20030206160249.GA12984@not.autrijus.org>

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

diff --git a/pod/perluniintro.pod b/pod/perluniintro.pod
index 7094464..4e52a58 100644
--- a/pod/perluniintro.pod
+++ b/pod/perluniintro.pod
@@ -363,7 +363,7 @@ the C<open> pragma.  See L<open>, or look at the following example.
 
 With the C<open> pragma you can use the C<:locale> layer
 
-    $ENV{LC_ALL} = $ENV{LANG} = 'ru_RU.KOI8-R';
+    BEGIN { $ENV{LC_ALL} = $ENV{LANG} = 'ru_RU.KOI8-R' }
     # the :locale will probe the locale environment variables like LC_ALL
     use open OUT => ':locale'; # russki parusski
     open(O, ">koi8");