From c664dcb27727246bbbfb694f6c5414d90738fca5 Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Sun, 6 Apr 2014 20:26:08 +0000
Subject: [PATCH] scstadmin: List keys alphabetically in the -list_sessions
 output

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@5410 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scstadmin | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin
index 6e976e93b..8ee27556c 100755
--- a/scstadmin/scstadmin.sysfs/scstadmin
+++ b/scstadmin/scstadmin.sysfs/scstadmin
@@ -3414,11 +3414,11 @@ sub listAttributes {
 
 	my $found = FALSE;
 
-	foreach my $attribute (keys %{$attributes}) {
+	foreach my $attribute (sort keys %{$attributes}) {
 		my $first = TRUE;
 
 		if (defined($$attributes{$attribute}->{'keys'})) {
-			foreach my $key (keys %{$$attributes{$attribute}->{'keys'}}) {
+			foreach my $key (sort keys %{$$attributes{$attribute}->{'keys'}}) {
 				my $value = $$attributes{$attribute}->{'keys'}->{$key}->{'value'};
 				my $static = ($$attributes{$attribute}->{'static'}) ? 'No' : 'Yes';
 				$value = '<not set>' if ($value eq '');