[Moscow.pm] Mojo::Log и utf8

[Grigory Batalov]

В Tue, 11 Dec 2012 15:42:39 +0400
Ivan Petrov <i.petro.77.00 на gmail.com> пишет:

> > Ну, возьмём такой пример:
> 
> > use Mojo::Log;
> > my $log = Mojo::Log->new( path => 'mojo.log' );
> > open (*FILE, '< nonexistent.txt') or $log->warn("Can't read file:
> > $!");
> 
> > Как получить сообщение "Нет такого файла или каталога" в utf8 ?
> 
> локализация $! в utf8 - старый баг который давно идет.
> 
> я сваял себе внутренний модуль и использую его переменную вместо $!.

Спасибо за ответ, пробую такой вариант:

use POSIX::Wide '$ERRNO';
use Mojo::Log;

my $log = Mojo::Log->new( path => 'mojo.log' );
open (*FILE, '< nonexistent.txt') or $log->warn("Can't read file: $ERRNO");