1 --- pod/perluniintro.pod.orig Thu Feb 6 12:45:57 2003
2 +++ pod/perluniintro.pod Thu Feb 6 12:46:10 2003
5 With the C<open> pragma you can use the C<:locale> layer
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