From 79e2b812320e8466ce2449fa4e96f5c5223485d2 Mon Sep 17 00:00:00 2001
From: Nils Schneider <nils@nilsschneider.net>
Date: Fri, 4 Oct 2013 10:47:31 +0200
Subject: [PATCH] gluon-simple-tc: initial.pl: sort keys before creating config

---
 gluon/gluon-simple-tc/initial.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gluon/gluon-simple-tc/initial.pl b/gluon/gluon-simple-tc/initial.pl
index 820029f..fdffdc8 100644
--- a/gluon/gluon-simple-tc/initial.pl
+++ b/gluon/gluon-simple-tc/initial.pl
@@ -6,10 +6,12 @@ print <<'END';
 uci -q batch <<EOF
 END
 
-while (($name, $interface) = each %{$cfg}) {
+foreach my $name (sort keys %{$cfg}) {
+  my $interface = $cfg->{$name};
+
   print "set gluon-simple-tc.$name=interface\n";
 
-  for (qw(ifname enabled limit_egress limit_ingress)) {
+  for (qw(enabled ifname limit_egress limit_ingress)) {
     print "set gluon-simple-tc.$name.$_=$interface->{$_}\n";
   }
 }