[libnet-dbus-perl] 264/335: Sort interfaces, methods & signals 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 c82f5238d43dd924ed09d7ff11a7bc8907c9929e
Author: Daniel P. Berrange <berrange at redhat.com>
Date: Sat Feb 16 14:33:51 2008 -0500
Sort interfaces, methods & signals in Dumper output
---
lib/Net/DBus/Dumper.pm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/Net/DBus/Dumper.pm b/lib/Net/DBus/Dumper.pm
index bd9a784..0e203c1 100644
--- a/lib/Net/DBus/Dumper.pm
+++ b/lib/Net/DBus/Dumper.pm
@@ -119,9 +119,9 @@ sub _dbus_dump_introspector {
my @data;
push @data, "Object: ", $ins->get_object_path, "\n";
- foreach my $interface ($ins->list_interfaces) {
+ foreach my $interface (sort { $a cmp $b } $ins->list_interfaces) {
push @data, " Interface: ", $interface, "\n";
- foreach my $method ($ins->list_methods($interface)) {
+ foreach my $method (sort {$a cmp $b } $ins->list_methods($interface)) {
push @data, " Method: ", $method, "\n";
my @paramnames = $ins->get_method_param_names($interface, $method);
foreach my $param ($ins->get_method_params($interface, $method)) {
@@ -134,7 +134,7 @@ sub _dbus_dump_introspector {
push @data, &_dbus_dump_types(" < ", $param, $name);
}
}
- foreach my $signal ($ins->list_signals($interface)) {
+ foreach my $signal (sort { $a cmp $b } $ins->list_signals($interface)) {
push @data, " Signal: ", $signal, "\n";
my @paramnames = $ins->get_signal_param_names($interface, $signal);
foreach my $param ($ins->get_signal_params($interface, $signal)) {
--
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