CVar-Helfer: cvars_by_config nach Config-Reihenfolge sortiert zurückgeben
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 5 Apr 2016 12:13:21 +0000 (14:13 +0200)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 6 Apr 2016 14:05:32 +0000 (16:05 +0200)
SL/DB/Helper/CustomVariables.pm

index 6ebebda..9de8394 100644 (file)
@@ -4,6 +4,7 @@ use strict;
 use Carp;
 use Data::Dumper;
 use List::Util qw(first);
+use List::UtilsBy qw(sort_by);
 
 use constant META_CVARS => 'cvars_config';
 
@@ -98,6 +99,8 @@ sub make_cvar_by_configs {
       @$configs
     );
 
+    @return = sort_by { $_->config->sortkey } @return;
+
     return \@return;
   }
 }