В Tue, 11 Dec 2012 15:42:39 +0400
Ivan Petrov <[email protected]> пишет:
> > Ну, возьмём такой пример:
>
> > 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");
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
