Набор программ для мододелов от Graff46

[1_A 117]

Цитата

Can't use 'defined(@array)' (Maybe you should just omit the defined()?) at Z:/Program Files/ActivePerl/lib/stkutils/level/level.pm line 687.

Compilation failed in require at level_cdc.pl line 10.

BEGIN failed--compilation aborted at level_cdc.pl line 10.

Удалить в файле level.pm на 687 строке defined

Скрытый текст

        if (defined @{$light->{unk}}) {

        if ( @{$light->{unk}}) {

И можно дальше юзать спокойно свежий ActivePerl.

 

---

 

А вообще это в силу изменений тык  
Можно удалить

Скрытый текст

        if (defined @{$light->{unk}}) {
            printf $fh "unk_0 = %s\n", @{$light->{unk}}[0];
            printf $fh "unk_1 = %s\n", @{$light->{unk}}[1];
            printf $fh "unk_2 = %s\n", @{$light->{unk}}[2];
            printf $fh "unk_3 = %s\n", @{$light->{unk}}[3];
            printf $fh "unk_4 = %s\n", @{$light->{unk}}[4];
        }

При удалении дефайн будет другая ошибка, unk текстурам не нужен.

defined(\@array) и defined(\%hash) теперь фатальные ошибки

Эти конструкции устарели, начиная с v5.6.1, и выводили предупреждение об устаревшей конструкции, начиная с v5.16.