Биллинговая система Nodeny

Главная категория => Nodeny 50 => Тема начата: Daniil от 22 Января 2015, 22:04:14



Название: Ошибка входа в админку "Might be a runaway multi-line () string"
Отправлено: Daniil от 22 Января 2015, 22:04:14
При входе в админку /cgi-bin/adm/adm.pl получаем в логах ошибку

syntax error at /usr/local/www/apache22/cgi-bin/adm/adm.pl line 412, near ")"
(Might be a runaway multi-line () string starting on line 408)
Execution of /usr/local/www/apache22/cgi-bin/adm/adm.pl aborted due to compilation errors.
Premature end of script headers: adm.pl

а вот что идет начиная с 406 строчки

if( !join '',grep{ /^cols-/ } keys %Atunes )
{
  foreach $_ qw(
    0-2 0-3 0-4 0-8 0-9 0-10 0-11 0-12 0-13 0-14 0-16 0-21 0-50 0-51 0-52 0-53 0-54
    1-1 1-2 1-3 1-5 1-6 1-8 1-14 1-15 1-16 1-17 1-18 1-22 1-50 1-51 1-52 1-53 1-54
    2-1 2-2 2-3 2-4 2-9 2-14 2-16 2-17 2-18 2-19 2-20 2-21 2-22
  )
  {    $Atunes{"cols-$_"}=1;
  }
}

также если закоментить эти строчки, то ругается на похожее в user.pl


Название: Re: Ошибка входа в админку "Might be a runaway multi-line () string"
Отправлено: Efendy от 23 Января 2015, 00:50:04
Похоже в новых версиях перл такая конструкция не работает, нужны дополнительные скобки:

Код:
foreach $_ (qw(
    0-2 0-3 0-4 0-8 0-9 0-10 0-11 0-12 0-13 0-14 0-16 0-21 0-50 0-51 0-52 0-53 0-54
    1-1 1-2 1-3 1-5 1-6 1-8 1-14 1-15 1-16 1-17 1-18 1-22 1-50 1-51 1-52 1-53 1-54
    2-1 2-2 2-3 2-4 2-9 2-14 2-16 2-17 2-18 2-19 2-20 2-21 2-22
  ))


Название: Re: Ошибка входа в админку "Might be a runaway multi-line () string"
Отправлено: Efendy от 23 Января 2015, 00:52:57
Ага, вот что нашел http://navi.pp.ua/?p=20


Название: Re: Ошибка входа в админку "Might be a runaway multi-line () string"
Отправлено: Daniil от 23 Января 2015, 20:32:37
спасибо, поправил и все залетало )
а на старых версия перла со скобочками дополнительными работать будет?


Название: Re: Ошибка входа в админку "Might be a runaway multi-line () string"
Отправлено: Efendy от 23 Января 2015, 21:44:45
должно