Perl + Net-DBus (Как установить?)

[devis]

Надо получить программный интерфейс к http://www.freedesktop.org/wiki/Software_2fdbus из под Perl. Модуль живет здесь http://search.cpan.org/~danberr/Net-DBus-0...lib/Net/DBus.pm. Из бинарников ничего кроме perl-Net-DBus-0.32.3-1mdk.i586.rpm не нашел. ActiveState не смогла собрать PPM ни под windows, ни под linux, ни под solaris http://ppm.activestate.com/BuildStatus/5.8-N.html - полный фейл, тестеры cpan тоже не в восторге http://testers.cpan.org/show/Net-DBus.html#Net-DBus-0.33.1.

Проверил зависимости - установил необходимое. Система Debian. Попытался:

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

perl Makefile.PL
make

SUBJECT_TO_CHANGE -DPD_DO_DEBUG=1 DBus.c
DBus.c: In function 'XS_Net__DBus__Binding__C__Connection_dbus_bus_get_unique_name':
DBus.c:1016: warning: implicit declaration of function 'dbus_bus_get_unique_name'
DBus.c:1016: warning: assignment makes pointer from integer without a cast
DBus.xs: In function 'XS_Net__DBus__Binding__C__Connection_dbus_bus_request_name':
DBus.xs:646: warning: implicit declaration of function 'dbus_bus_request_name'
DBus.xs: In function 'XS_Net__DBus__Binding__Message__iterator_append':
DBus.xs:802: warning: implicit declaration of function 'dbus_message_iter_init_append'
DBus.xs: In function 'XS_Net__DBus__Binding__Iterator__recurse':
DBus.xs:1077: warning: implicit declaration of function 'dbus_message_iter_recurse'
DBus.xs: In function 'XS_Net__DBus__Binding__Iterator__open_container':
DBus.xs:1088: warning: implicit declaration of function 'dbus_message_iter_open_container'
DBus.xs: In function 'XS_Net__DBus__Binding__Iterator__close_container':
DBus.xs:1097: warning: implicit declaration of function 'dbus_message_iter_close_container'
DBus.xs: In function 'XS_Net__DBus__Binding__Iterator_get_element_type':
DBus.xs:1111: warning: implicit declaration of function 'dbus_message_iter_get_element_type'
DBus.xs: In function 'XS_Net__DBus__Binding__Iterator_get_boolean':
DBus.xs:1135: warning: implicit declaration of function 'dbus_message_iter_get_basic'
DBus.xs: In function 'XS_Net__DBus__Binding__Iterator_append_boolean':
DBus.xs:1201: warning: implicit declaration of function 'dbus_message_iter_append_basic'
DBus.xs: In function 'boot_Net__DBus':
DBus.xs:381: error: 'DBUS_BUS_STARTER' undeclared (first use in this function)
DBus.xs:381: error: (Each undeclared identifier is reported only once
DBus.xs:381: error: for each function it appears in.)
DBus.xs:391: error: 'DBUS_TYPE_STRUCT' undeclared (first use in this function)
DBus.xs:392: error: 'DBUS_TYPE_SIGNATURE' undeclared (first use in this function)
DBus.xs:394: error: 'DBUS_TYPE_DICT_ENTRY' undeclared (first use in this function)
DBus.xs:398: error: 'DBUS_TYPE_VARIANT' undeclared (first use in this function)

Вопрос: как поставить это модуль?

[Asgard]

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

su -c 'perl -MCPAN -e shell'
cpan> install Net::DBus

корректно установит и удовлетворит все зависимости

[devis]

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

cpan install Net::DBus

Выдает ту же гадость. Повторяюсь, необходимые зависимости я установил, а именно:

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

Time::HiRes
XML::Parser
XML::Grove
Test::More
Test::Pod
Test::Pod::Coverage

Мне кажется какие-то конфликты непоредственно с пакетами dbus-1, dbus-1-dev.

[Asgard]

Мне кажется какие-то конфликты непоредственно с пакетами dbus-1, dbus-1-dev.

лучше оставить что-то одно =)

[offtopic]этот dbus вообще от лукавого. я не так давно собирал из сорцов bmpx(что поделаешь, такова жизнь слакварщика =(), так он требовалверсию dbus'a строго 0.35, с версиями 0.5x и 0.6x категорически отказывался работать[offtopic]