[libnet-dbus-perl] 204/335: Bump version & whitespace cleanup
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:57 UTC 2015
This is an automated email from the git hooks/post-receive script.
intrigeri pushed a commit to branch experimental
in repository libnet-dbus-perl.
commit b908846263d2cfd68afbf910536fbcaabf4ab0a1
Author: Daniel P. Berrange <berrange at redhat.com>
Date: Mon Jun 12 20:25:30 2006 -0400
Bump version & whitespace cleanup
---
README | 12 +++++-----
lib/Net/DBus.pm | 74 ++++++++++++++++++++++++++++-----------------------------
2 files changed, 42 insertions(+), 44 deletions(-)
diff --git a/README b/README
index d21f6b5..606b2ea 100644
--- a/README
+++ b/README
@@ -93,18 +93,18 @@ patch is as follows:
* Rename your working directory to have '-new'
extension:
- mv DBus-0.33.1 DBus-0.33.1-new
+ mv DBus-0.33.3 DBus-0.33.3-new
* Extract a pristine copy of the source:
- gunzip -c DBus-0.33.1.tar.gz | tar xf -
- mv DBus-0.33.1 DBus-0.33.1-orig
+ gunzip -c DBus-0.33.3.tar.gz | tar xf -
+ mv DBus-0.33.3 DBus-0.33.3-orig
* Generate the patch:
- diff -ruN DBus-0.33.1-orig DBus-0.33.1-new \
- > DBus-0.33.1-[something].patch
- gzip DBus-0.33.1-[something].patch
+ diff -ruN DBus-0.33.3-orig DBus-0.33.3-new \
+ > DBus-0.33.3-[something].patch
+ gzip DBus-0.33.3-[something].patch
Send the resulting to .patch.gz file directly to
diff --git a/lib/Net/DBus.pm b/lib/Net/DBus.pm
index d2ab82b..31f63f9 100644
--- a/lib/Net/DBus.pm
+++ b/lib/Net/DBus.pm
@@ -47,8 +47,8 @@ Net::DBus - Perl extension for the DBus message system
my $hal = $bus->get_service("org.freedesktop.Hal");
# Get the device manager
- my $manager = $hal->get_object("/org/freedesktop/Hal/Manager",
- "org.freedesktop.Hal.Manager");
+ my $manager = $hal->get_object("/org/freedesktop/Hal/Manager",
+ "org.freedesktop.Hal.Manager");
# List devices
foreach my $dev (@{$manager->GetAllDevices}) {
@@ -68,7 +68,7 @@ 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, providing the API changes have not been
-too drastic.
+too drastic.
Users of this package are either typically, service providers
in which case the L<Net::DBus::Service> and L<Net::DBus::Object>
@@ -92,7 +92,7 @@ use Carp;
BEGIN {
- our $VERSION = '0.33.2';
+ our $VERSION = '0.33.3';
require XSLoader;
XSLoader::load('Net::DBus', $VERSION);
}
@@ -109,19 +109,19 @@ use Exporter qw(import);
use vars qw(@EXPORT_OK %EXPORT_TAGS);
- at EXPORT_OK = qw(dbus_int16 dbus_uint16 dbus_int32 dbus_uint32 dbus_int64 dbus_uint64
+ at EXPORT_OK = qw(dbus_int16 dbus_uint16 dbus_int32 dbus_uint32 dbus_int64 dbus_uint64
dbus_byte dbus_boolean dbus_string dbus_double
- dbus_object_path dbus_signature
+ dbus_object_path dbus_signature
dbus_struct dbus_array dbus_dict dbus_variant);
-%EXPORT_TAGS = (typing => [qw(dbus_int16 dbus_uint16 dbus_int32 dbus_uint32 dbus_int64 dbus_uint64
+%EXPORT_TAGS = (typing => [qw(dbus_int16 dbus_uint16 dbus_int32 dbus_uint32 dbus_int64 dbus_uint64
dbus_byte dbus_boolean dbus_string dbus_double
- dbus_object_path dbus_signature
+ dbus_object_path dbus_signature
dbus_struct dbus_array dbus_dict dbus_variant)]);
=item my $bus = Net::DBus->find(%params);
-Search for the most appropriate bus to connect to and
+Search for the most appropriate bus to connect to and
return a connection to it. The heuristic used for the
search is
@@ -145,7 +145,7 @@ attached to the main L<Net::DBus::Reactor> event loop.
sub find {
my $class = shift;
-
+
if ($ENV{DBUS_STARTER_BUS_TYPE} &&
$ENV{DBUS_STARTER_BUS_TYPE} eq "session") {
return $class->session(@_);
@@ -182,7 +182,7 @@ sub system {
=item my $bus = Net::DBus->session(%params);
-Return a handle for the session message bus.
+Return a handle for the session message bus.
The optional C<params> hash can contain be used to specify
connection options. The only support option at this time
is C<nomainloop> which prevents the bus from being automatically
@@ -201,9 +201,9 @@ sub session {
=item my $bus = Net::DBus->test(%params);
-Returns a handle for a virtual bus for use in unit tests. This bus does
+Returns a handle for a virtual bus for use in unit tests. This bus does
not make any network connections, but rather has an in-memory message
-pipeline. Consult L<Net::DBus::Test::MockConnection> for further details
+pipeline. Consult L<Net::DBus::Test::MockConnection> for further details
of how to use this special bus.
=cut
@@ -219,7 +219,7 @@ sub test {
Return a connection to a specific message bus. The C<$address>
parameter must contain the address of the message bus to connect
-to. An example address for a session bus might look like
+to. An example address for a session bus might look like
C<unix:abstract=/tmp/dbus-PBFyyuUiVb,guid=191e0a43c3efc222e0818be556d67500>,
while one for a system bus would look like C<unix:/var/run/dbus/system_bus_socket>.
The optional C<params> hash can contain be used to specify
@@ -238,13 +238,13 @@ sub new {
sub _new {
my $class = shift;
my $self = {};
-
+
$self->{connection} = shift;
$self->{signals} = [];
$self->{services} = {};
-
+
my %params = @_;
-
+
bless $self, $class;
unless ($params{nomainloop}) {
@@ -254,12 +254,12 @@ sub _new {
}
# ... Add support for GLib and POE
}
-
+
$self->get_connection->add_filter(sub { $self->_signal_func(@_) });
# XXX is it ok to fix '1:0' as the owner of this ?
$self->{bus} = Net::DBus::RemoteService->new($self, ":1.0", "org.freedesktop.DBus");
-
+
return $self;
}
@@ -289,7 +289,7 @@ of the L<Net::DBus::RemoteService> class.
sub get_service {
my $self = shift;
my $name = shift;
-
+
if ($name eq "org.freedesktop.DBus") {
return $self->{bus};
}
@@ -333,7 +333,7 @@ object is an instance of L<Net::DBus::RemoteObject>
sub get_bus_object {
my $self = shift;
-
+
my $service = $self->get_service("org.freedesktop.DBus");
return $service->get_object('/org/freedesktop/DBus',
'org.freedesktop.DBus');
@@ -349,7 +349,7 @@ the bus.
sub get_unique_name {
my $self = shift;
-
+
return $self->get_connection->get_unique_name
}
@@ -390,7 +390,7 @@ sub _add_signal_receiver {
my $rule = $self->_match_rule($signal_name, $interface, $service, $path);
- push @{$self->{signals}}, [$receiver, $rule, $signal_name, $interface, $service, $path];
+ push @{$self->{signals}}, [$receiver, $rule, $signal_name, $interface, $service, $path];
$self->{connection}->add_match($rule);
}
@@ -401,7 +401,7 @@ sub _remove_signal_receiver {
my $interface = shift;
my $service = shift;
my $path = shift;
-
+
my $rule = $self->_match_rule($signal_name, $interface, $service, $path);
my @signals;
@@ -455,15 +455,15 @@ sub _rule_matches {
my $interface = shift;
my $sender = shift;
my $path = shift;
-
+
my %bits;
- map {
+ map {
if (/^(\w+)='(.*)'$/) {
$bits{$1} = $2;
}
} split /,/, $rule;
-
+
if (exists $bits{member} &&
$bits{member} ne $member) {
return 0;
@@ -496,7 +496,7 @@ sub _signal_func {
my $member = $message->get_member;
my $handled = 0;
- foreach my $handler (grep { defined $_->[1] &&
+ foreach my $handler (grep { defined $_->[1] &&
$self->_rule_matches($_->[1], $member, $interface, $sender, $path) }
@{$self->{signals}}) {
my $callback = $handler->[0];
@@ -529,7 +529,7 @@ Mark a value as being a signed, 16-bit integer.
sub dbus_int16 {
return Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_INT16,
$_[0]);
-
+
}
=item $typed_value = dbus_uint16($value);
@@ -553,7 +553,7 @@ Mark a value as being a signed, 32-bit integer.
sub dbus_int32 {
return Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_INT32,
$_[0]);
-
+
}
=item $typed_value = dbus_uint32($value);
@@ -579,7 +579,7 @@ Mark a value as being an unsigned, 64-bit integer.
sub dbus_int64 {
return Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_INT64,
$_[0]);
-
+
}
=item $typed_value = dbus_uint64($value);
@@ -637,7 +637,7 @@ sub dbus_string {
=item $typed_value = dbus_signature($value);
-Mark a value as being a UTF-8 string, whose contents is a valid
+Mark a value as being a UTF-8 string, whose contents is a valid
type signature
=cut
@@ -726,8 +726,8 @@ sub dbus_variant{
=head1 SEE ALSO
-L<Net::DBus>, L<Net::DBus::RemoteService>, L<Net::DBus::Service>,
-L<Net::DBus::RemoteObject>, L<Net::DBus::Object>,
+L<Net::DBus>, L<Net::DBus::RemoteService>, L<Net::DBus::Service>,
+L<Net::DBus::RemoteObject>, L<Net::DBus::Object>,
L<Net::DBus::Exporter>, L<Net::DBus::Dumper>, L<Net::DBus::Reactor>,
C<dbus-monitor(1)>, C<dbus-daemon-1(1)>, C<dbus-send(1)>, L<http://dbus.freedesktop.org>,
@@ -749,11 +749,9 @@ use overload ('""' => 'stringify');
sub stringify {
my $self = shift;
-
+
return $self->{name} . ": " . $self->{message} . ($self->{message} =~ /\n$/ ? "" : "\n");
}
-
-
-1;
+1;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git
More information about the Pkg-perl-cvs-commits
mailing list