Ошибка входа в админку "Might be a runaway multi-line () string"

[Daniil]

При входе в админку /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

[Efendy]

Похоже в новых версиях перл такая конструкция не работает, нужны дополнительные скобки:

Код:

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
  ))

[Efendy]

Ага, вот что нашел http://navi.pp.ua/?p=20

[Daniil]

спасибо, поправил и все залетало )
а на старых версия перла со скобочками дополнительными работать будет?

[Efendy]

должно