diff options
| author | Audrey Tang <cpan@audreyt.org> | 2003-02-07 08:02:49 +0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-08 07:23:02 +0000 |
| commit | 12f98225223fc8656cd9a46ff1e4f49c6c3f2943 (patch) | |
| tree | f17073b7c8f66dd1d2b49c931d0adf530867f0e0 /pod/perluniintro.pod | |
| parent | 53ecdda105bb4103d210aff4a70dce9565ed670e (diff) | |
| download | perl-12f98225223fc8656cd9a46ff1e4f49c6c3f2943.tar.gz | |
perluniintro nit
Message-ID: <20030206160249.GA12984@not.autrijus.org>
p4raw-id: //depot/perl@18670
Diffstat (limited to 'pod/perluniintro.pod')
| -rw-r--r-- | pod/perluniintro.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perluniintro.pod b/pod/perluniintro.pod index 7094464a43..4e52a58d4c 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"); |