import p5-Net-DBus, a perl interface for freedesktop.org DBus message system.

www:http://search.cpan.org/~danberr/Net-DBus-0.33.5/lib/Net/DBus.pm

with feedback and ok okan@ simon@
This commit is contained in:
landry 2007-11-21 21:12:18 +00:00
parent 158c72f286
commit 876327ea73
6 changed files with 187 additions and 0 deletions

23
net/p5-Net-DBus/Makefile Normal file
View File

@ -0,0 +1,23 @@
# $OpenBSD: Makefile,v 1.1.1.1 2007/11/21 21:12:18 landry Exp $
SHARED_ONLY= Yes
COMMENT= communicate with DBus message system
MODULES= cpan
DISTNAME= Net-DBus-0.33.5
CATEGORIES= net
MAINTAINER= Landry Breuil <gaston@gcu.info>
# GPL/Artistic
PERMIT_PACKAGE_CDROM= Yes
PERMIT_PACKAGE_FTP= Yes
PERMIT_DISTFILES_CDROM= Yes
PERMIT_DISTFILES_FTP= Yes
RUN_DEPENDS= ::textproc/p5-XML-Twig
BUILD_DEPENDS= ${RUN_DEPENDS}
LIB_DEPENDS= dbus-1.>=6::x11/dbus
.include <bsd.port.mk>

5
net/p5-Net-DBus/distinfo Normal file
View File

@ -0,0 +1,5 @@
MD5 (Net-DBus-0.33.5.tar.gz) = +sRnSUX1NQnOjDJJZGqqEQ==
RMD160 (Net-DBus-0.33.5.tar.gz) = 33auJf5+SKVQXhNz4HlQBWFBYng=
SHA1 (Net-DBus-0.33.5.tar.gz) = RNFMQhIvOSzdGH0Z4sJGEKz7efo=
SHA256 (Net-DBus-0.33.5.tar.gz) = IEsvIi8LQbqWn1pQiFft1egl2POn2oFuQbOWXthSQYE=
SIZE (Net-DBus-0.33.5.tar.gz) = 96131

View File

@ -0,0 +1,51 @@
$OpenBSD: patch-DBus_xs,v 1.1.1.1 2007/11/21 21:12:18 landry Exp $
--- DBus.xs.orig Wed Nov 21 20:41:03 2007
+++ DBus.xs Wed Nov 21 20:43:03 2007
@@ -528,10 +528,10 @@ _open(address)
dbus_error_init(&error);
DEBUG_MSG("Open connection shared %s\n", address);
con = dbus_connection_open(address, &error);
- dbus_connection_ref(con);
if (!con) {
_croak_error (&error);
}
+ dbus_connection_ref(con);
RETVAL = con;
OUTPUT:
RETVAL
@@ -546,10 +546,10 @@ _open_private(address)
dbus_error_init(&error);
DEBUG_MSG("Open connection private %s\n", address);
con = dbus_connection_open_private(address, &error);
- dbus_connection_ref(con);
if (!con) {
_croak_error (&error);
}
+ dbus_connection_ref(con);
RETVAL = con;
OUTPUT:
RETVAL
@@ -909,10 +909,10 @@ _open(type)
dbus_error_init(&error);
DEBUG_MSG("Open bus shared %d\n", type);
con = dbus_bus_get(type, &error);
- dbus_connection_ref(con);
if (!con) {
_croak_error(&error);
}
+ dbus_connection_ref(con);
RETVAL = con;
OUTPUT:
RETVAL
@@ -927,10 +927,10 @@ _open_private(type)
dbus_error_init(&error);
DEBUG_MSG("Open bus private %d\n", type);
con = dbus_bus_get_private(type, &error);
- dbus_connection_ref(con);
if (!con) {
_croak_error(&error);
}
+ dbus_connection_ref(con);
RETVAL = con;
OUTPUT:
RETVAL

View File

@ -0,0 +1,30 @@
$OpenBSD: patch-Makefile_PL,v 1.1.1.1 2007/11/21 21:12:18 landry Exp $
--- Makefile.PL.orig Thu Jul 19 05:02:29 2007
+++ Makefile.PL Tue Nov 6 12:54:40 2007
@@ -47,26 +47,4 @@ sub libscan
($path =~ /\~$/ || $path =~ m,/CVS/,) ? undef : $path;
}
-sub test {
- my $self = shift;
- my $mm_test = $self->SUPER::test(@_);
-
- return '
-TO_TEST_PM = $(TO_INST_PM:lib/%.pm=blib/test/%.pm.tstamp)
-
-test :: test-syntax
-
-test-syntax: pure_all $(TO_TEST_PM)
-
-blib/test/%.pm.tstamp: lib/%.pm
- @echo -n "Checking $<: "
- #@perl -I blib/lib -c $<
- @podchecker $<
- @mkdir -p `dirname $@`
- @touch $@
-
-' . $mm_test;
- }
-
-
__END__

View File

@ -0,0 +1,3 @@
Net::DBus provides a Perl API for the DBus message system. The DBus Perl
interface is currently operating against the 0.32 development version of
DBus, but should work with later versions too.

75
net/p5-Net-DBus/pkg/PLIST Normal file
View File

@ -0,0 +1,75 @@
@comment $OpenBSD: PLIST,v 1.1.1.1 2007/11/21 21:12:18 landry Exp $
${P5ARCH}/Net/
${P5ARCH}/Net/DBus/
${P5ARCH}/Net/DBus.pm
${P5ARCH}/Net/DBus/ASyncReply.pm
${P5ARCH}/Net/DBus/Annotation.pm
${P5ARCH}/Net/DBus/Binding/
${P5ARCH}/Net/DBus/Binding/Bus.pm
${P5ARCH}/Net/DBus/Binding/Connection.pm
${P5ARCH}/Net/DBus/Binding/Introspector.pm
${P5ARCH}/Net/DBus/Binding/Iterator.pm
${P5ARCH}/Net/DBus/Binding/Message/
${P5ARCH}/Net/DBus/Binding/Message.pm
${P5ARCH}/Net/DBus/Binding/Message/Error.pm
${P5ARCH}/Net/DBus/Binding/Message/MethodCall.pm
${P5ARCH}/Net/DBus/Binding/Message/MethodReturn.pm
${P5ARCH}/Net/DBus/Binding/Message/Signal.pm
${P5ARCH}/Net/DBus/Binding/PendingCall.pm
${P5ARCH}/Net/DBus/Binding/Server.pm
${P5ARCH}/Net/DBus/Binding/Value.pm
${P5ARCH}/Net/DBus/Binding/Watch.pm
${P5ARCH}/Net/DBus/Callback.pm
${P5ARCH}/Net/DBus/Dumper.pm
${P5ARCH}/Net/DBus/Error.pm
${P5ARCH}/Net/DBus/Exporter.pm
${P5ARCH}/Net/DBus/Object.pm
${P5ARCH}/Net/DBus/Reactor.pm
${P5ARCH}/Net/DBus/RemoteObject.pm
${P5ARCH}/Net/DBus/RemoteService.pm
${P5ARCH}/Net/DBus/Service.pm
${P5ARCH}/Net/DBus/Test/
${P5ARCH}/Net/DBus/Test/MockConnection.pm
${P5ARCH}/Net/DBus/Test/MockIterator.pm
${P5ARCH}/Net/DBus/Test/MockMessage.pm
${P5ARCH}/Net/DBus/Test/MockObject.pm
${P5ARCH}/Net/DBus/Tutorial/
${P5ARCH}/Net/DBus/Tutorial.pod
${P5ARCH}/Net/DBus/Tutorial/ExportingObjects.pod
${P5ARCH}/Net/DBus/Tutorial/UsingObjects.pod
${P5ARCH}/auto/Net/
${P5ARCH}/auto/Net/DBus/
${P5ARCH}/auto/Net/DBus/DBus.bs
${P5ARCH}/auto/Net/DBus/DBus.so
@man man/man3p/Net::DBus.3p
@man man/man3p/Net::DBus::ASyncReply.3p
@man man/man3p/Net::DBus::Annotation.3p
@man man/man3p/Net::DBus::Binding::Bus.3p
@man man/man3p/Net::DBus::Binding::Connection.3p
@man man/man3p/Net::DBus::Binding::Introspector.3p
@man man/man3p/Net::DBus::Binding::Iterator.3p
@man man/man3p/Net::DBus::Binding::Message.3p
@man man/man3p/Net::DBus::Binding::Message::Error.3p
@man man/man3p/Net::DBus::Binding::Message::MethodCall.3p
@man man/man3p/Net::DBus::Binding::Message::MethodReturn.3p
@man man/man3p/Net::DBus::Binding::Message::Signal.3p
@man man/man3p/Net::DBus::Binding::PendingCall.3p
@man man/man3p/Net::DBus::Binding::Server.3p
@man man/man3p/Net::DBus::Binding::Value.3p
@man man/man3p/Net::DBus::Binding::Watch.3p
@man man/man3p/Net::DBus::Callback.3p
@man man/man3p/Net::DBus::Dumper.3p
@man man/man3p/Net::DBus::Error.3p
@man man/man3p/Net::DBus::Exporter.3p
@man man/man3p/Net::DBus::Object.3p
@man man/man3p/Net::DBus::Reactor.3p
@man man/man3p/Net::DBus::RemoteObject.3p
@man man/man3p/Net::DBus::RemoteService.3p
@man man/man3p/Net::DBus::Service.3p
@man man/man3p/Net::DBus::Test::MockConnection.3p
@man man/man3p/Net::DBus::Test::MockIterator.3p
@man man/man3p/Net::DBus::Test::MockMessage.3p
@man man/man3p/Net::DBus::Test::MockObject.3p
@man man/man3p/Net::DBus::Tutorial.3p
@man man/man3p/Net::DBus::Tutorial::ExportingObjects.3p
@man man/man3p/Net::DBus::Tutorial::UsingObjects.3p