perl_580-perluniintro.patch

   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");