|
ru.unix.bsd
- RU.UNIX.BSD ------------------------------------------------------------------
From : Constantin Stefanov 2:5020/400 31 Jul 2006 16:46:42
To : All
Subject : netdisco под FreeBSD 6.1 - ошибка perl.
--------------------------------------------------------------------------------
Здравствуйте.
Поставил себе net-mgmt/netdisco. После небольшой доводки создал ему БД
(postgresql 8.1), запустил демона, поднялся веб-интерфейс.
Однако при попытке сделать discovery device выдает вот такую ошибку:
Not an ARRAY reference at
/usr/local/lib/perl5/site_perl/5.8.8/SNMP/Info.pm line 2535.
Я в перле не силен, на мой взгляд там все в порядке. Попробую привести
куски кода, вдруг я чего не доглядел.
------------------------SNMP::Info.pm---------------------
if ($bulkwalk){
($vars) = $sess->bulkwalk(0, $repeaters, $var);
if($sess->{ErrorNum}) {
$self->error_throw("SNMP::Info::_load_atrr: BULKWALK
".$sess->{ErrorStr},"\n");
return undef;
}
}
while (! $errornum ){
if ($bulkwalk){
$var = shift @$vars or last;
-----------------------------------------------------------
Последняя строка и есть номер 2535, на который ругается. sess - объект
типа SNMP::Session. Описание метода bulkwalk говорит, что
The bulkwalk() method returns an array containing an array of
Varbinds, one for each requested variable, in the order of the
variable requests. Upon error, bulkwalk() returns undef and sets
$sess->ErrorStr and $sess->ErrorNum.
Если перед последней строкой модуля поставить print ref $vars, говорит
SNMP::Session. Откуда он там может взяться - ума не приложу.
Все собрано из портов, perl 5.8.8.
Как бы все это поправить, чтоб заработало?
--
Константин Стефанов
Если у человека нет чувства юмора, у него должно быть чувство,
что у него нет чувства юмора
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
