Movable Type: устранение ошибок

Часть ошибок типа

defined(%hash) is deprecated at
/home/admin/domains/домен.ru/public_html/cgi-bin/mt/extlib/Locale/Maketext.pm line
404.

решилась обновлением модулей в /cgi-bin/mt/extlib/ копированием свежих из perl-5.15.6 :

• I18N
• Locale

 При выполнении заданий по cron вылезли следующие предупреждения:

Use of qw(...) as parentheses is deprecated at lib/MT/Template/ContextHandlers.pm line 6541.
Use of qw(...) as parentheses is deprecated at lib/MT/Template/ContextHandlers.pm line 8202.
Use of qw(...) as parentheses is deprecated at lib/MT/Template/ContextHandlers.pm line 10517.
Use of qw(...) as parentheses is deprecated at lib/MT/Template/ContextHandlers.pm line 16308.
Use of qw(...) as parentheses is deprecated at lib/MT/Template/ContextHandlers.pm

linePublishing /home/admin/domains/site.ru/public_html/blog.html, priority 8

Use of uninitialized value in lc at lib/MT/Template/ContextHandlers.pm line 3846.
Use of uninitialized value in lc at lib/MT/Template/ContextHandlers.pm line 10662.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.
Use of uninitialized value $param{"Type"} in lc at lib/MT/Asset/Image.pm line 248.

По первым 4-м предупреждениям я так понял кто-то умный решил что нужно использовать синтаксис  `(qw())` вместо `qw()`п начиная с версии perl 5.14.

Поэтому тут все просто, правим все 4 строки файла lib/MT/Template/ContextHandlers.pm на предмет корректного синтаксиса:

Строка 6541

for my $f (qw( min_score max_score min_rate max_rate min_count max_count scored_by )) {

Строка 8202

for my $f (qw( min_score max_score min_rate max_rate min_count max_count scored_by )) {

Строка 10517

for my $f (qw( min_score max_score min_rate max_rate min_count max_count scored_by )) {

Строка 16308

for my $f (qw( min_score max_score min_rate max_rate min_count max_count scored_by )) {

По следующим трем предупреждениям меняем в файле lib/MT/Template/ContextHandlers.pm :

строка 10662

#          $args{'sort'} = lc $args->{sort_by} || 'created_on';
            $args{'sort'} = lc($args->{sort_by} || '') || 'created_on';

строка 3846

#          my $column = lc( $args->{sort_by} ) || 'name';
            my $column = lc( $args->{sort_by} || '') || 'name';

Меняем в файле lib/MT/Asset/Image.pm :

строка 248

#               my $ext  = lc($param{Type}) || $asset->file_ext || '';
                 my $ext  = lc($param{Type} || '') || $asset->file_ext || '';

Все рекомендации по устранению данных ошибок и предупреждений для Movable Type при переходе на новые версии perl носят сугубо рекомендательный характер, автор (то бишь я, Безработный) ответственности не несет и гарантий не дает ;)

Мне данные способы помогли, но не факт что помогут и Вам!

Если данная статья показалась Вам полезной - плюсуйте её в Google, размещайте ссылки в Твиттере, копируйте себе на сайты и блоги, но ОБЯЗАТЕЛЬНО с указанием прямой индексируемой dofollow ссылки на данную статью.