[libnet-dbus-perl] 295/335: Remove accidental debug lines

Intrigeri intrigeri at moszumanska.debian.org
Sat Mar 21 01:08:12 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 034fdf03fa09acbf674505b85a9841c24d0765ae
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Thu Jun 30 21:54:39 2011 +0100

    Remove accidental debug lines
---
 lib/Net/DBus.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/Net/DBus.pm b/lib/Net/DBus.pm
index 16a8029..17b6ceb 100644
--- a/lib/Net/DBus.pm
+++ b/lib/Net/DBus.pm
@@ -452,7 +452,6 @@ sub _match_rule {
     if (defined $signal_name) {
 	$rule .= ",member='$signal_name'";
     }
-    print "$rule\n";
     return $rule;
 }
 
@@ -498,7 +497,7 @@ sub _signal_func {
     my $sender = $message->get_sender;
     my $path = $message->get_path;
     my $signal_name = $message->get_member;
-    print "Sender $sender\n";
+
     my $handled = 0;
     foreach my $handler (@{$self->{signals}}) {
 	next unless $self->_handler_matches($handler, $signal_name, $interface, $sender, $path);

-- 
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