]>
Commit | Line | Data |
---|---|---|
514700bf | 1 | --- pod/perluniintro.pod.orig Thu Feb 6 12:45:57 2003 |
2 | +++ pod/perluniintro.pod Thu Feb 6 12:46:10 2003 | |
3 | @@ -363,7 +363,7 @@ | |
4 | ||
5 | With the C<open> pragma you can use the C<:locale> layer | |
6 | ||
7 | - $ENV{LC_ALL} = $ENV{LANG} = 'ru_RU.KOI8-R'; | |
8 | + BEGIN { $ENV{LC_ALL} = $ENV{LANG} = 'ru_RU.KOI8-R'; } | |
9 | # the :locale will probe the locale environment variables like LC_ALL | |
10 | use open OUT => ':locale'; # russki parusski | |
11 | open(O, ">koi8"); |