Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Как избавиться от ошибки

Автор: AlexanderI 18.2.2008, 12:14

Помогите избавиться от ошибки или хотябы сделать так, чтобы в логах эта ошибка не фиксировалась.

Вот строка из кода на которую ссылается ошибка

Код


elsif ($$col{name} eq 'eorder') {$var=qq[<a href="$sturl&mode=order&id=$$rec{id}$purl" title="$$rec{id}" class="act1">\[ляля\]</a>];}

А это лог из Apache
test.pm: Use of uninitialized value in concatenation (.) or string at zz.pm line 162.\n

Но скорее всего ошибка вот в этой строке:

Код


        elsif ($$col{name} eq '_delete') {$var=(!$$rec{deny_del} and ($$rec{id} !~ m/^($$struct{deny_delits}[0])$/g) ? qq[<a href="$sturl&mode=delete1_do&id=$$rec{id}" title="$$rec{id}" class="act2">\[help\]</a>] : '&nbsp;');}

Т.е. когда значение deny_delits=>[qw()] пустое возникает эта ошибка.
Что можно поправить в коде чтобы не возникала эта ошибка

Автор: Unrealm 18.2.2008, 14:45

Как вариант, сделать его не совсем пустым, т.е. просто deny_delits=> "" или перед тем, как использовать проверять его defined().