такой код работать не будет
нужно как-то так:
BEGIN {
require open;
if ( $^O eq 'Win32' ) {
}
else { open->import(":locale") }
}
On 28.10.2013, at 17:10, Nikolay Mishin <[email protected]> wrote:
> Moscow PM,привет!!
>
> есть скрипт, в котором написано
> use open ':locale';
> в unix все работает
> в win32
> Cannot figure out an encoding to use at trans.pl line 25
> как сделать так, чтобы use использовалась взависимости от OS
> в BEGIN что-ли запихнуть?
>
> use Devel::CheckOS qw(os_is);
>
> BEGIN {
> if ( os_is('Unix') ) {
>
> use open ':locale';
> }
> }
>
> https://github.com/mishin/gists/blob/master/trans.pl
>
> --
> С уважением
> Николай Мишин
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
