contrib/collection3: Common.pm: Sort identifiers by filename.
authorAman Gupta <aman@tmm1.net>
Sat, 22 Aug 2009 12:07:26 +0000 (14:07 +0200)
committerFlorian Forster <octo@leeloo.lan.home.verplant.org>
Sat, 22 Aug 2009 12:10:53 +0000 (14:10 +0200)
contrib/collection3/lib/Collectd/Graph/Common.pm

index b445c8e..6019edb 100644 (file)
@@ -216,6 +216,7 @@ sub get_files_from_directory
   my $recursive = @_ ? shift : 0;
   my $dh;
   my @directories = ();
+  my @files = ();
   my $ret = [];
 
   opendir ($dh, $dir) or die ("opendir ($dir): $!");
@@ -231,15 +232,13 @@ sub get_files_from_directory
     }
     elsif (-f $entry)
     {
-      my $ident = filename_to_ident ($entry);
-      if ($ident)
-      {
-       push (@$ret, $ident);
-      }
+      push (@files, $entry);
     }
   }
   closedir ($dh);
 
+  push (@$ret, map { filename_to_ident ($_) } sort (@files));
+
   if ($recursive > 0)
   {
     for (@directories)
@@ -247,7 +246,7 @@ sub get_files_from_directory
       my $temp = get_files_from_directory ($_, $recursive - 1);
       if ($temp && @$temp)
       {
-       push (@$ret, @$temp);
+        push (@$ret, @$temp);
       }
     }
   }