Pesky Perl output buffering

[invirt/scripts/munin.git] / web / all-usage.cgi

diff --git a/web/all-usage.cgi b/web/all-usage.cgi
index c1817bd..20d5eb4 100755 (executable)
--- a/web/all-usage.cgi
+++ b/web/all-usage.cgi
@@ -60,7 +60,7 @@ my @COLOUR = ("#22ff22", "#0022ff", "#ff0000", "#00aaaa", "#ff00ff",
               "#0080FF", "#FF8000", "#800000", "#FB31FB");
 my $color_index = 0;
 
-foreach my $uuid (keys %uuids) {
+foreach my $uuid (sort keys %uuids) {
   my @uuid_files = grep { m|$uuid-.\.rrd$| } @files;
   foreach my $i (0..$#uuid_files) {
     $uuid_files[$i] =~ m|^([^:]+)$|;