Perl - ошибка "Use of qw(...) as parentheses is deprecated at..."
После очередного обновления софта, обнаружил, что некоторые из скриптов, написанных на Perl, сыпят в /var/log/httpd-error.log сообщения о ошибках. Пример сообщений:
| [Mon Mar 25 16:22:38 2013] [error] [client 10.227.206.45] Use of qw(...) as parentheses is deprecated at /home/test/user.pl line 644., referer: http://test.com/test/user.pl?a=user&id=7 [Mon Mar 25 16:22:38 2013] [error] [client 10.227.206.45] Use of qw(...) as parentheses is deprecated at /home/test/user.pl line 848., referer: http://test.com/test/user.pl?a=user&id=7 [Mon Mar 25 16:22:38 2013] [error] [client 10.227.206.45] Use of qw(...) as parentheses is deprecated at /home/test/user.pl line 849., referer: http://test.com/test/user.pl?a=user&id=7 |
Связано это с синтаксисом функции qw. Теперь саму функцию тоже необходимо брать в скобки. Рассмотрим на примере ошибки в скрипте, строка 644 (в вашем случае, номер строки с ошибкой смотрите в лог-файле).
Первоначальный код (ошибочный):
| ($psevdo)=&Get_filtr_fields qw( psevdo ); |
Исправленный код (корректный):
| ($psevdo)=&Get_filtr_fields (qw( psevdo )); |
После заключения функции в скобки, ошибки в лог перестали сыпаться.
Последние комментарии
1 год 50 недель назад
2 года 22 недели назад
4 года 23 недели назад
4 года 45 недель назад
5 лет 16 недель назад
5 лет 31 неделя назад
5 лет 32 недели назад
5 лет 35 недель назад
5 лет 47 недель назад
5 лет 51 неделя назад