End of script output before headers

[Westus]

Вовремя установки биллинга столкнулся с проблемой 500 Internal Server Error на странице https ://192.168.0.102/cgi-bin/adm/adm.pl
В логах httpd-error.log

Код:

[Fri Sep 08 01:33:39.260664 2017] [cgi:error] [pid 2198] [client 192.168.0.101:42736] AH01215: syntax error at /usr/local/www/apache24/cgi-bin/adm/adm.pl line 412, near ")": /usr/local/www/apache24/cgi-bin/adm/adm.pl
[Fri Sep 08 01:33:39.260708 2017] [cgi:error] [pid 2198] [client 192.168.0.101:42736] AH01215:   (Might be a runaway multi-line () string starting on line 408): /usr/local/www/apache24/cgi-bin/adm/adm.pl
[Fri Sep 08 01:33:39.260732 2017] [cgi:error] [pid 2198] [client 192.168.0.101:42736] AH01215: Execution of /usr/local/www/apache24/cgi-bin/adm/adm.pl aborted due to compilation errors.: /usr/local/www/apache24/cgi-bin/adm/adm.pl
[Fri Sep 08 01:33:39.261064 2017] [cgi:error] [pid 2198] [client 192.168.0.101:42736] End of script output before headers: adm.pl

Система freebsd 11.1 apache 2.4

[ser970]

Might be a runaway multi-line

в старой версии pelr qw()
в новой версии perl будет (qw()

просто поиском и поправить....

[muff]

По всему коду необходимо править. Когда-то писал об этом...

muff.kiev.ua/content/perl-oshibka-use-qw-parentheses-deprecated

[goletsa]

Недавно переежал на новую версию ОС/perl, могу дифы скинуть.
Правда вроде потом еще что-то приходилось дофиксивать.

[garik24]

Недавно переежал на новую версию ОС/perl, могу дифы скинуть.
Правда вроде потом еще что-то приходилось дофиксивать.

Тоже переезжаю. Актуально.
Поделитесь дифами, плз.

[goletsa]

Эх, забыл тогда выложить, а всплыло еще одно пропущенное место, так что вроде тут должны быть все фиксы.