perl: ошибки

[icb]

Раньше сайт работал нормально, после переноса на другой сервер перестал.
В логах пишет

Код: Выделить всё

[Wed Jan 06 22:49:34 2010] [error] [client 95.26.147.9] Useless use of a constant in void context at ../lib/login.cgi line 113.
[Wed Jan 06 22:49:34 2010] [error] [client 95.26.147.9] syntax error at ../lib/login.cgi line 551, near "( err"

Строки 113, 551

Код: Выделить всё

if($l eq '' or $p eq ''){ return err('Пустое имя пользователя или пароль.'); }
if($sid eq '' or $sid == 0){ return( err("Вы не вошли в систему.") ); }

Вроде обычный код, да и работал же.
Может надо какие модули перла доставить?
Сейчас стоит такое

p5-DBI-1.60.9 The perl5 Database Interface. Required for DBD::* modules
p5-Storable-2.21 Persistency for perl data structures
p5-gettext-1.05_2 Message handling functions
perl-5.8.9_3 Practical Extraction and Report Language

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[ProFTP]

что такое err?

это какая-то фнцкция может быть которая не подключенная...

вообще надо смотреть код, покажи или дай доступ...

[icb]

что такое err?

Это объявлено ниже в файле login.cgi

Код: Выделить всё

sub err
{
	$errstr = shift;
	return (undef,undef);
}

вообще надо смотреть код

У меня нет к нему доступа
Да и говорят: "все же работало на старом сервере".

[ProFTP]

можно попробовать так:

Код: Выделить всё

if($sid eq '' or $sid == 0){ 
return err("Вы не вошли в систему") ; 
}

а где 551 строка?

[icb]

можно попробовать так:

Ошибка осталась прежней, только на следующей строке.

а где 551 строка?

Не совсем корректно объеденил строки

113

Код: Выделить всё

if($l eq '' or $p eq ''){ return err('Пустое имя пользователя или пароль.'); }

551

Код: Выделить всё

if($sid eq '' or $sid == 0){ return( err("Вы не вошли в систему.") ); }

Везде вызывается err, но почему ошибки разные?

[ProFTP]

2 строки по разному написаны

я не знаю что перед ними и что после....

попробуй так:

Код: Выделить всё

    if($sid eq '' or $sid == 0) { die "Вы не вошли в систему"; }

[icb]

Ошибка пропала (551 строка).

[ProFTP]

Код: Выделить всё

 Useless use of a constant in void context 

возвращается не определенное значение , это просто придуприждение

[icb]

А почему вообще появляется эта ошибка?
Чем не нравится err?

[ProFTP]

точно сказать не могу....
надо попробовать

[icb]

Просто править код чужих сайтов особо не получится
Да и ошибка скорее всего связана действительно с переездом.

[thefree]

Код: Выделить всё

sub err
{
   $errstr = shift;
   return (undef,undef);
}

Это точно полностью ВСЯ функция?
Правильнее будет

Код: Выделить всё

sub err()
{
   $errstr = @_;
   return (undef,undef);
}
if(!defined($l) or !defined($p)) { return err("Пустое имя пользователя или пароль."); }
if(!defined($sid) or $sid eq 0){ return err("Вы не вошли в систему."); }

Версия perl изменилась у Вас.

[icb]

Это точно полностью ВСЯ функция?

Да.

Версия perl изменилась у Вас.

Да.
Можно заставить старые скрипты работать без переделки?

[icb]

Версия perl поменялась с 5.8.8 на 5.8.9 - не должно быть так критично для скриптов.

[thefree]

Версия perl поменялась с 5.8.8 на 5.8.9 - не должно быть так критично для скриптов.

не должно быть, но еще есть модули ... и бла бла бла ... То что я вам порекомендовал помогло?

[icb]

То что я вам порекомендовал помогло?

Да, хватило убрать скобки у return
Но вылезла куча других ошибок

Код: Выделить всё

print() on closed filehandle MEM at
readline() on closed filehandle MEM at