Commit 3f18341f authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Add sorting on protolans dump for easier debugging.

parent afc2ce96
......@@ -2217,7 +2217,7 @@ sub Dump($)
"(" . $self->{'LINK'}->vname() . ") " : "");
my $string = "ProtoLan: $vname $type,$link";
foreach my $key (keys(%{ $self->{"ATTRS"} })) {
foreach my $key (sort(keys(%{ $self->{"ATTRS"} }))) {
my $pattr = $self->{"ATTRS"}->{$key};
my $val = $pattr->{'attrvalue'};
......@@ -2225,7 +2225,7 @@ sub Dump($)
}
$string .= ", ";
foreach my $key (keys(%{ $self->{"MEMBERS"} })) {
foreach my $key (sort(keys(%{ $self->{"MEMBERS"} }))) {
my $member = $self->{"MEMBERS"}->{$key};
my $nodeid = $member->{'node'}->node_id();
my $iface = $member->{'iface'};
......@@ -2233,7 +2233,7 @@ sub Dump($)
$string .= "$nodeid:$iface, ";
}
foreach my $key (keys(%{ $self->{"IFACES"} })) {
foreach my $key (sort(keys(%{ $self->{"IFACES"} }))) {
my $interface = $self->{"IFACES"}->{$key};
my $nodeid = $interface->{'node'}->node_id();
my $vnode = $interface->{'vnode'};
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment