CVar-Helfer: cvars_by_config nach Config-Reihenfolge sortiert zurückgeben

diff --git a/SL/DB/Helper/CustomVariables.pm b/SL/DB/Helper/CustomVariables.pm
index 6ebebda418e93db1c5f7943ee1d01610f5ee1121..9de8394968163486cd8c7b08acffc241a2490688 100644 (file)
--- a/SL/DB/Helper/CustomVariables.pm
+++ b/SL/DB/Helper/CustomVariables.pm
@@ -4,6 +4,7 @@ use strict;
 use Carp;
 use Data::Dumper;
 use List::Util qw(first);
 use Carp;
 use Data::Dumper;
 use List::Util qw(first);

+use List::UtilsBy qw(sort_by);

 
 use constant META_CVARS => 'cvars_config';
 
 
 use constant META_CVARS => 'cvars_config';
 


@@ -98,6 +99,8 @@ sub make_cvar_by_configs {
       @$configs
     );
 
       @$configs
     );
 

+    @return = sort_by { $_->config->sortkey } @return;
+

     return \@return;
   }
 }
     return \@return;
   }
 }