[libnet-dbus-perl] 266/335: Include list of child objects in Dumper output
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:08:08 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 f8e79aa9e6a8c2618a47c1d824f475843bdd9038
Author: Daniel P. Berrange <berrange at redhat.com>
Date: Sat Feb 16 14:57:17 2008 -0500
Include list of child objects in Dumper output
---
lib/Net/DBus/Dumper.pm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/lib/Net/DBus/Dumper.pm b/lib/Net/DBus/Dumper.pm
index 0e203c1..5e989ac 100644
--- a/lib/Net/DBus/Dumper.pm
+++ b/lib/Net/DBus/Dumper.pm
@@ -142,6 +142,9 @@ sub _dbus_dump_introspector {
push @data, &_dbus_dump_types(" > ", $param, $name);
}
}
+ foreach my $child (sort { $a cmp $b } $ins->list_children()) {
+ push @data, " Child: ", $child, "\n";
+ }
}
return @data;
}
--
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