From 9b69ac2845953f4af1c0cde32e57830cfd529578 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

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

diff --git a/package/gluon-simple-tc/initial.pl b/package/gluon-simple-tc/initial.pl
index 820029f7..fdffdc84 100644
--- a/package/gluon-simple-tc/initial.pl
+++ b/package/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";
   }
 }