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 b13a08c39854b81f5882e8fdd2db4bea60416e1c Author: Daniel P. Berrange <d...@berrange.com> Date: Sat Oct 15 14:39:35 2005 +0000 Swich org.freedesktop.DBus.Exporter to org.cpan.Net.DBus.Exporter to indicate it is non-standard Perl specific at this time --- lib/Net/DBus/Dumper.pm | 4 ++-- lib/Net/DBus/Service.pm | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/Net/DBus/Dumper.pm b/lib/Net/DBus/Dumper.pm index bb41990..f1d4c33 100644 --- a/lib/Net/DBus/Dumper.pm +++ b/lib/Net/DBus/Dumper.pm @@ -16,7 +16,7 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # -# $Id: Dumper.pm,v 1.4 2005/10/15 13:31:42 dan Exp $ +# $Id: Dumper.pm,v 1.5 2005/10/15 15:39:35 dan Exp $ =pod @@ -166,7 +166,7 @@ sub _dbus_dump_service { my @data; push @data, "Service: ", $service->get_service_name, "\n"; - my $exp = $service->get_object("/org/freedesktop/DBus/Exporter"); + my $exp = $service->get_object("/org/cpan/Net/DBus/Exporter"); my $exports = $exp->ListObjects(); foreach (@{$exports}) { push @data, " Object: $_\n"; diff --git a/lib/Net/DBus/Service.pm b/lib/Net/DBus/Service.pm index f7b8c18..6dffcb8 100644 --- a/lib/Net/DBus/Service.pm +++ b/lib/Net/DBus/Service.pm @@ -16,7 +16,7 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # -# $Id: Service.pm,v 1.8 2005/10/15 13:31:42 dan Exp $ +# $Id: Service.pm,v 1.9 2005/10/15 15:39:35 dan Exp $ =pod @@ -150,7 +150,7 @@ package Net::DBus::Service::Exporter; use base qw(Net::DBus::Object); use strict; -use Net::DBus::Exporter qw(org.freedesktop.DBus.Exporter); +use Net::DBus::Exporter qw(org.cpan.Net.DBus.Exporter); dbus_method("ListObjects", [], [["array", "string"]]); dbus_signal("ObjectRegistered", ["string"]); @@ -159,9 +159,9 @@ dbus_signal("ObjectUnregistered", ["string"]); sub new { my $class = shift; my $service = shift; - my $self = $class->SUPER::new($service, "/org/freedesktop/DBus/Exporter"); + my $self = $class->SUPER::new($service, "/org/cpan/Net/DBus/Exporter"); - $self->{objects} = {"/org/freedesktop/DBus/Exporter" => 1}; + $self->{objects} = {"/org/cpan/Net/DBus/Exporter" => 1}; bless $self, $class; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits